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This is a progress report on the research project, “Analysis and Computation of Internal 
Flow Field in a Scramjet Engine,” for the period ended April 30, 1993. Special attention dur- 
ing this period was directed to “Radiative Interactions in Molecular Gases under Local and 
Nonlocal Thermodynamic Equilibrium Conditions”. 

This was supported by the NASA Langley Research Center (Theoretical Flow Physics 
Branch of the Fluid Mechanics Division) through the grant NAG-1-423. The grant was 
monitored by Drs. J. P. Drummond and A. Kumar of FLDMD— Theoretical Flow Physics 
Branch. The work, in part, was also supported by the Old Dominion University ICAM proj- 
ect through NASA grant NAG-1-363; this grant was monitored by Mr. Robert L. Yang, As- 
sistant University Affairs Officer, NASA Langley Research Center, Hampton, Virginia 
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RADIATIVE INTERACTIONS IN MOLECULAR GASES UNDER LOCAL AND 
NONLOCAL THERMODYNAMIC EQUILIBRIUM CONDITIONS 


By 

M. K. Jhat and S. N. Tiwari$ 

Department of Mechanical Engineering and Mechanics 
Old Dominion University, May 1993 

ABSTRACT 

Basic formulations, analyses, and numerical procedures are presented to investigate radia- 
tive heat interactions in diatomic and polyatomic gases under local and nonlocal thermody- 
namic equilibrium conditions. Essential governing equations are presented for both gray and 
nongray gases. Information is provided on absorption models, relaxation times, and transfer 
equations. Radiative flux equations are developed which are applicable under local and non- 
local thermodynamic equilibrium conditions. 

The problem is solved for fully developed laminar incompressible flows between two 
parallel plates under the boundary condition of a uniform surface heat flux. For specific ap- 
plications, three diatomic and three polyatomic gases are considered. The results are ob- 
tained numerically by employing the method of variation of parameters. The results are 
compared under local and nonlocal thermodynamic equilibrium conditions at different tem- 
perature and pressure conditions. Both gray and nongray studies are conducted extensively 
for all molecular gases considered. The particular gases selected for this investigation are, 
CO, NO, OH, CO 2 , H 2 0, and CH 4 . The temperature and pressure range considered are 
300-2000 K and 0.1-10 atmosphere, respectively. In general, results demonstrate that the 
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gray gas approximation overestimates the effect of radiative interaction for all conditions. 
The conditions of NLTE, however, result in underestimation of radiative interactions. The 
method developed for this study can be extended to solve complex problems of radiative heat 
transfer involving nonequilibrium phenomena. 
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Chapter 1 


INTRODUCTION 


Radiation is an important mode of energy transfer in systems involving high temperature 
variations. In past several years, radiative energy transfer has been the subject of research 
in many heat transfer problems. This is because of the specific applicability of radiative heat 
transfer analyses in certain important areas. Some of the popular areas of application are, 
remote sensing, earth’s radiation budget studies and climate modelling, fire and combustion 
research, entry and reentry phenomena, hypersonic propulsion, and defense oriented re- 
search. Until the sixties and early seventies, attentions were directed mainly on one dimen- 
sional treatment of radiative transfer problems. Multidimensional analyses became popular 

* ■ „ 

only in the mid-to-late seventies. Today, there are several books [1-11] , review articles, 
and research papers available which deal with radiative heat transfer analyses in a variety 
of systems. 

To understand the radiative energy transfer, it is important to understand the basic transfer 
processes ( mass, momentum, and energy ) in various systems. Essential formulations for 
such processes are available in standard references [12-19]. It is necessary to assume a suit- 
able model for vibration-rotation bands, and to obtain relevant spectroscopic information 

* Numbers in brackets represent references 
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for the gases under consideration. One should be thoroughly conversant with different nu 
merical and computational procedures. 

There are a number of analyses involving duct flows of absorbing-emitting gases in litera- 
ture. Usiskin and Sparrow [20] studied thermal radiation between parallel plates separated 
by an absorbing-emitting, nonisothermal gas. Viskanta and Grosh [21] studied heat transfer 
in an absorbing and scattering medium. Lick [22] studied the effect of energy transfer by 
combined radiation and conduction. Viskanta [23] studied the interaction of conduction, 
laminar convection, and radiation in a plane layer of radiating fluid. Cess and Tiwari [24] 
investigated heat transfer to laminar flow of an absorbing-emitting gas between parallel 
plates. Tiwari [25] studied radiative interaction in transient energy transfer in gaseous sys- 
tems. Tiwari and Singh [26] extended Tiwari’s work to fully developed laminar flows. The 
studies involving nonlocal thermodynamic equilibrium (NLTE) phenomena are discussed 
in [27-31]. The studies presented in [32-35] have reviewed other available literature on gray 

as well as nongray radiative transfer between planar geometries. 

Most of the radiative heat transfer treatment have been done under local thermodynamic 
equilibrium (LTE) conditions. The goal of this research is to treat the radiative heat transfer 
problems under NLTE conditions. The gases under consideration are, CO, NO, OH, C0 2 , 
H 2 0, and CH 4 . Both gray and nongray analyses have been conducted for these gases. The 
analyses have been presented for laminar flow between black parallel plates. However, the 
same analyses can be extended to circular, triangular, or other complex geometries with 
proper modifications. The LTE and NLTE results are compared at different pressures and 
temperatures. The range of pressure, temperature, and plate spacing is chosen in such a way 
that maximum radiative effect is observed. The pressure ranges from 0.1 to 10 atmosphere, 
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and the temperature ranges from 300 to 2000 K. The spacing between the plates is taken from 
0.1 to 100 centimeters. 

The basic theoretical formulation is provided in Chap. 2. Chapter 3 presents radiative 
transfer models which include absorption models, rate equations and equations for relax- 
ation times, the equation of radiative transfer, and radiative flux equations. Chapter 4 deals 
with gray gas analyses under LTE and NLTE conditions. Chapter 5 provides nongray radia- 
tive transfer formulations under LTE and NLTE conditions. Results and discussion for all 
the cases are presented in Chap. 6. 





Chapter 2 

BASIC THEORETICAL FORMULATION 


As stated in the introduction, the basic governing equations for fluid mechanics and heat 
transfer are available in standard references [12-19]. These equations are used in different 
forms depending upon the nature of the problem being solved. These are presented here 
without providing detailed derivations. 


The equation for conservation of mass which is known as continuity equation, is given 
as 

^ + V . (p u) = 0 (2.1a) 

of 

For an incompressible fluid, this reduces to 

V . u = 0 (2.1b) 

The equation for conservation of momentum, in most general form, is given as 


Q 


Du 

Dt 


= ef- vp + -t t“( 


dxj dx t ’ 


2 « du k , 

3 A >< 1 


(2.2a) 


where 6jj is known as the Kronecker delta and i,j,k = 1,2,3. In deriving Eq. (2.2a), the coeffi- 
cient of bulk viscosity is assumed to be zero. Assuming incompressible fluid and viscosity 
p to be constant, Eq. (2.2a) reduces to 


4 




Du = f-lP + yV 2 U 

Dt J Q 


(2.2b) 


The energy equation is expressed in several forms which are available in [12,15,16]. The 
proper form which is convenient for this study is given as 




dQ 


Dp 

Dt 


(2.3) 


where 


f > 2 


+ 2 < Ty > 2 


+ 2(t) 2 + ( 


dv . du x 2 


to dy 


V + ( 


3vv . to x 2 

ay az j 


, , 3u , 3w x 2 _ 2 f du . d\ , dw x 2 •> 
* ' 8z T dx } 3 V dx " r dy dz > J 


In Eq. (2.3), the quantity Q represents the heat generated (or lost) by external agencies, and 
P is the coefficient of thermal expansion of the fluid. Other quantites are defined in cited ref- 
erences. 


Equations (2.1)-(2.3), in general, are called Navier-Stokes equations. For computational 
conveniences, these equations are expressed in a compact vector form as [19] 


dU . dE , dF , dG _ n 

ir + ta + ^ + aF-° 


(2.4) 


where it is assumed that there is no external heat addition and no body forces. The quantities 


U, E, F,and G are vectors and are defined as 


U = 


Q 

QU 

QV 

gw 

Et 
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E = 


QU 

QU 2 + P ~ Xxx 

QUV - Xxy 
QUW — Xxz 

( E t + P ) U - uXja - vTj ty - wXxz + qcx + Qrx 


QV 

QUV - Xxy 

Q \ 2 + P — Xyy 
QVW - Xyz 

( Et + P ) v — UXxy VTyy WX yz + (Jcy "h Q. Ry 


G - 


QW 

QUW - Xxx 
QVW - Xyz 

0 W 2 + P — Xzz 

( E t + P ) W ~ UXxz - Vtyz ~ + q a + <lRz 


where 


E, - Q ( e + ^ ) ; V 2 = u 2 + v 2 + w 2 


2 , -du 3v 3w v 

= 3 -'‘ ( 2 ta"s 7 " aF } 


2 , -3v a« 0»v v 

r yy ” 3 /* ( 2 ay 3x dz ^ 


2 / -,3w du dv v 
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_ _ „ / dK . > ^ _r 

T *V “ A* ( i, + fly ’ ) “ V 


3y to 


= r z 


_ ., / to | dw \ 

T >* ( 8z + dy ’ 


= T 




In Eq. (2.4), first row represents the continuity equation, second, third, and fourth rows rep- 
resent the three momentum equations, and the last row represents the energy equation. 


For two-dimensional laminar flow in channels, the energy equation given by Eq. (2.3) 
reduces to [6] 


& < f + “§ + v § > - £< *f ) + » Tu f < % )Z - ** < 2 ’ 5 > 


dy v dy 


dy 


The energy equation given in this form can be applied to radiatively induced nonequilibrium 
flows by replacing the divergence of the radiative flux by its nonequilibrium counterpart. 


In deriving Eq. (2.5), it has been assumed that the conduction heat transfer in the x-direc- 
tion is negligible compared to that in the y-direction. This represents the physical condition 
of a large value of the Peclet number. Similar reasoning can be applied to show that the radia- 
tive heat transfer in the x-direction is negligible in comparison to that in the y-direction. 


Within the confines of the foregoing assumptions, for small values of the Eckert number, 
Eq. (2.5) reduces to 


dT, u dT , v dT d^T 1 ggft 
dt T U dx ^ v 8y a dy 2 QC p dy 


( 2 . 6 ) 
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where cx=ic/pCp is the thermal diffusivity of the fluid and fluid properties has been assumed 
to be constant locally. 


In order to apply energy equation to problems involving radiation participating medium, 
it is necessary to have an appropriate formulation for the radiative flux, q R . As stated earlier, 
in dealing with problems involving nonequilibrium phenomena, one should use the nonequi- 
librium counterpart of the radiative flux equation. Different forms of radiative flux equation 
as well as other relevant topics are covered in the next chapter. 
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Chapter 3 

RADIATIVE TRANSPORT MODELS 


As stated in Chap. 2, one should consider an appropriate radiative transport model while 
applying the energy equation to problems involving radiation participating medium. This 
section presents discussion on absorption models, rate equations and relaxation times, trans- 
fer equations, and radiative flux equations. 

3.1 Absorption Models 


To study the radiative effects in nonhomogeneous medium, it is essential to know the 
absorption, emission, and scattering characteristics of the gases under consideration. An ac- 
curate model for the spectral absorption coefficient is required to formulate radiative flux 
equations. In addition, one needs to identify the major bands of the gas under consideration, 
and to evaluate the line parameters ( line intensity, line half-width, and line spacing ) of these 
bands. The line parameters depend on temperature, pressure, and concentration of the ab- 
sorbing molecules. Considerable efforts have been made to obtain the line parameters and 
absorption coefficient of some important atomic and molecular species. 


9 



The quantity of primary interest which is applied with respect to the band approximation, 
is the integrated band intensity, S. This is also called integrated band absorption or band in- 
tensity, and is defined as 

5(7) = | y-dm (3.1) 

Am 

where k u represents the spectral absorption coefficient. This quantity is independent of pres- 
sure because the total area of the individual rotational line is independent of pressure. 


The temperature variation of the integrated band intensity is given by [33-35] 

T 5(7) = T 0 S(T q) F(T) (3.2) 


where T 0 is the reference temperature ( usually 300 K) and F(T)= 1 for fundamental and pure 
rotation bands, but it differs from unity for overtone and combination bands. For combina- 
tion and overtone bands of important molecules, relations for F(T) exists in literature [35]. 
Band intensities for some important gases are presented in Appendix A. 


For gray gas analyses, the total band absorption coefficient is expressed in terms of either 
the Planck mean absorption coefficient Kp or the modified Planck mean absorption coeffi- 
cient K m . For a single-band gas, these are defined as [6] 


x p (T) = 


i 

Am 


XalT) eJT) dm 


xjt.tj- r 

Am 


< T) 

*J T) i) 

aT* 


( 33 ) 


(3.4) 
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where e w is Planck function. Assuming the Planck function e^^ to be independent of the 
wave number within the band, and using Eqs. (3.1) and (3.2), Eqs. (3.3) and (3.4) can be 

written as 


*pP0 _ e ax$X) crr\ 

p S{ ?> 

*JLT,Td _ e <UT 1)o ^ _ *JT l)Tl 
P oT\ () P T 


(3.5) 


(3.6) 


The definition of K p and K m can be extended to multiband gases, and by combining Eqs. 
(3.2), (3.3), and (3.4), a general expression can be obtained as 

5>., s , ( T o> F . (t> 

(J\ ^l) _ t— 1 /j y\ 

t v x p (r x ) « 

( r i) S i ( T tt> F i ( T l) 

1=1 


where n is the number of bands. By including the contributions from overtone and combina- 
tion bands, calculations performed for CO, CO 2 , and H 2 O [31] show that the right hand side 
of Eq. (3.7) is approximately equal to unity, and therefore Eq. (3.6) is an excellent approxi- 
mation for Eq. (3.7). 


In a similar manner, the general expression for Eq. (3.5) for multiband gases can be given 


as 


i>£[ «i( «=.»•) S ( (T)] 


X/ T) = 


;=i 


(3.8) 


a 7* 
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For a mixture of gases, Eq. (3.8) can be written as 


<Z r > S ' (r)I > (3.9) 

j 1*1 

*pC0 ~ o~T* 

where j is the number of species and Pj is the partial pressure of the j th species. 

For an accurate evaluation of the absorptance of a molecular band, a convenient line model 
is used to represent the variation of the spectral absorption coefficient. The commonly used 
line models are Lorentz, Doppler, and Voigt line models. A detailed discussion of these line 
models is presented in [31]. In a particular band consisting of many lines, the absorption co- 
efficient varies very rapidly with frequency. Thus, it is very difficult to evaluate the total 
band absorptance over the actual band contour by employing the line model. To overcome 
this difficulty, several band models (narrow as well as wide) have been proposed which rep- 
resent absorption from an actual band with reasonable accuracy [33-35]. There are several 
continuous correlations for the total band absorptance which are available in literature. The 
detailed discussion of the various band models are given in cited references. 


3.2 Rate Equations and Relaxation Times 


In this section, discussion on rate equations and equations for relaxation times are pres- 
ented briefly. For any radiative heat exchange process, it is important to know the rate of 
change of vibrational energy [31]. The rate of change of vibrational energy of a system of 
oscillator can be given as 


12 


(3.10) 


dEy , dEy v , / dEy .. 

dt ~ K dt )co11 K dt )rad 


where first and second terms on the right hand side represent vibrational energy due to colli- 
sional and radiative processes respectively. The radiative field exchanges energy with rota- 
tional as well as vibrational degree of freedom. The relation for radiative flux in terms of rate 
of change of vibrational as well as rotational energy is given by 

- div q R = ( >"■' (3JI> 

where Ey and Er are vibrational and rotational energy per unit volume. The second term on 
the right of Eq. (3.11) can be neglected because of small separation of rotational levels. 


The divergence of radiative flux is related to specific intensity I v , and for one-dimensional 
case, it is given as 


div q R 


Mr 

dy 



oo 4 jt 

u 

0 0 


^dQdv 

ds 


(3.12) 


Combining Eqs. (3.10) - (3.12), one obtains 

T? ~ ( % >- " j I IT* 0 * (3.13) 

0 0 


The first part of Eq. (3.13), i.e. the rate of change of vibrational energy of a system under- 
going a collisional relaxation process is given by the Bethe-Teller relation [31] 
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(3.14) 


dE\ E v Ey 

Hi Wc 

where Ey* is the equilibrium value of the vibrational energy and r\ c is vibrational relaxation 
time. The relaxation time is defined as the average time required to transfer energy from one 
mode to another by collision. Therefore, it is also termed as collisional relaxation time. 

By assuming Eyoto be the initial amount of vibrational energy, integration of Eq. (3.14) 
yields 


Ey — Ey — (EyQ Ey ) eXf>( | ) (3-15) 

In order to use Eq. (3.15), an explicit relation for tj c = t] c (T,P) is required. There are several 
expressions available in literature to calculate rj c . Some of them are briefly discussed here. 
An explicit relation for % is given by the Landau-Teller relation [31] 

i\ c = Kf-'tx p (K 2 T~ 1 ^) (3.16) 

where Ki and K 2 are positive constants and depend on the physical properties of the mole- 
cule. For diatomic gases, an empirical relation for rj c is given by [36, 37] 

P tic = exp [ A ( T" 1 / 3 - 0 . 015 p 1 !* ) - 18 . 42 ] (3.17) 

where A is a constant and is related to the molecular constants of the colliding species and 
p is the reduced mass of the colliding pairs. Values of A and p for some gases are available 
in the references. For C0 2 , the relation for r\ c is given by [31] 

rj c = i[ exp ( AT" 1 / 3 - B ) X 10" 6 ] (3.18) 
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For CH 4> r]c is given by [31] 


He = y[ ~ 5 . 4 + 40 7" 1 / 3 ] X 10" 6 (3.19) 


For cases where specific relation for t] c do not exist, one can use the general expression given 
by Millikan and White [36, 37] 

P T]c - exp [ ( 1 . 16 X 10" 3 ) p 1 ! 2 0 4 / 3 ( T" 1 / 2 - 0 . 15 p 1 / 4 ) - 18 . 42 ] (3.20) 

where 0 is the characteristic temperature (K) and is given as 0 = hc/kX, and h is the Planck’s 
constant, c is the speed of light, k is the Boltzmann constant, and X is the wavelength. 

In all the expressions for r| c , P is the total pressure in atmosphere, r| c is in seconds, and 
T is the temperature in degrees Kelvin. Although these relations show a strong dependency 
of r] c on pressure, in reality it has a larger temperature variation. This is because collisional 
frequencies are higher at higher temperatures and consequently it takes relatively less time 
to deactivate the excited states. Further discussions on collisional relaxation time are pro- 
vided by Tiwari and Manian [30]. 

3.3 Transfer Equations 


By transfer equations, we mean equations for radiative energy transfer over a specifically 
defined volume. These equations are usually represented in terms of intensity of radiation 
I v . In this section, we will derive several forms of radiative transfer equations and discuss 
their physical meaning. The transfer equations are derived for a simple harmonic oscillator 
based on the assumption that the rotational and vibrational levels are populated according 
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to the Boltzmann distribution. The rotational energy is characterized by equilibrium temper- 
ature T whereas the vibrational energy is characterized by the the nonequilibrium tempera- 
ture Ty Two level transitions between the vibrational states are considered in such a way that 
a single independent vibration-rotation band is obtained corresponding to the fundamental 
frequency of vibration. Therefore, the nonequilibrium transfer equation which is described 
next, is applicable to only fundamental bands of diatomic and polyatomic gases. 

For a two level system, let n(v-l) and n(v) represent the number density of molecules in 
the lower and upper vibrational levels respectively. In each vibrational level, molecules are 
assumed to be distributed over rotational levels according to Boltzmann distribution func- 
tion f(j) such that 2 f(j) =1. The quantity v is called the vibrational quantum number and j 
is a set of rotational quantum numbers corresponding to the lower vibrational level. Thus, 
number density in the state (v-l,j) is given as n(v-l) f(j). Number of molecules that actually 
make a transition from state (v-1 j) to (v.j r ) are governed by the Einstein coefficients such 
that number of molecules undergoing spontaneous emission, induced or stimulated emis- 
sion, and absorption are given by aft' j) A(v,v-1), b(j',j) B(v,v-1), and b(j,j ) B(v-l,v) re- 
spectively. If rotational and vibrational wave functions are assumed to be separable, j coeffi- 
cients can be assumed such that the following relation is satisfied 

= 2>j') = Z«wo = i 

; j j 

Based on the above assumption for a two level transition of molecules contained in a vol- 
ume dS ( cross section is assumed to be unity ), the change in radiative energy within the solid 
angle dQ, can be written as 

- «(v)/0'>0’.M(v,v - ixfji 
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- Wv - l)/0 W/JW - l,v) - n(v)/ 

- "(v)/0'W,j)B(v,v - C- 5 '^ 

where first, second, and third terms on the right represent contribution due to spontaneous 
emission, absorption, and induced emission respectively, and c is the speed of light. 


If one applies the principle of detailed balance, following relations are obtained 

a(j',j) A(v,v - 1) - d v b(j',j ) B(v,v - 1) (3.22a) 

b(j',j) B(v, v - 1) = *(/>/) B(y - l,v) (3.22b) 

where 6 V = 8n v 2 /c 3 and g(j) is the statistical weight of j th rotational level. The following 
relation is obtained for a simple harmonic oscillator from quantum mechanics 

B (v,v — 1) = v 5(0,1) (3.23) 


Since each pair of vibrational levels of a simple harmonic oscillator absorb and emit equal 
quanta, a summation over all the vibrational level is possible. As a result, the following rela- 
tion can be obtained 


00 

£v - ^ v n(v) 

V=1 

where Ey is written in the normalized form, and 

E v ' = n [exp( ^ - l]" 1 

such that [31] 

E v = [ <*p( W ) ~ 1 ] 

Ev * [«p(afc)-l] 


(3.24) 


(3.25a) 


(3.25b) 


where T v is the nonequilibrium temperature. 
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By using Eqs. (3.22) through (3.25) in Eq. (3.21), the transfer equation can be written 
in the form 


dly = n B(0, 1) f(j) 

* c[l — exp( — ^5^ ) ] 


|^exp[- |(^ + V -^ )]“/» + /vexp[- £(^ + ( 3 - 26 ) 


where n is the total number of molecules. 

Equation (3.26) is written in an alternative form as 

4k = X r (S,-l,) 


(3.27) 


where k v and S v are net absorption coefficient and source function respectively, and are giv- 


en as 


, n B(0, 1) bfjj') f(f) ( h v 0 , v-v 0 ] ( 7 ) 

Xy (n, T, Ty) —hr 0 , ,1 1 ex P [ x ^ T T ^ I ‘ 

c [ 1 - exp ( -JJT-* ) H iv j 


Sv (T, Ty) = ( ^ ) [ exp [£ + ) ] - i} 

For the case of LTE, T v = T and Eqs. (3.27a) and (3.27b) can be written as 

[1 - exp ( -zr )J 


(3.27b) 


Sy — By (T) — 


) 


[ exp ( § ) - 1 ] 
where By is black body intensity of frequency v at local temperature. 


(3.28a) 


(3.28b) 
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Using Eqs. (3.25) through (3.28), radiation transfer equation can be given as 




(3.29) 


Comparing Eq. (3.29) with Eq. (3.27), it is seen that the quantity By is the source 

K V Ey 

function S(T,T V ). Equation (3.29) can be regarded as the nonequilibrium radiative transfer 
equation and is identical to that obtained by Goody [ 4 ]. 


Under steady state conditions, for each fundamental band, a combination of Eqs. (3.13), 
(3.14), and (3.29) results in 


|^)[(|i) + |do|* v B v ^] = (S ) + jdajx 


v I v dv 


(3.30) 


where integration is taken over the frequency range of an individual band and over the solid 
angle from 0 to 4 n. If one introduces a time constant tj r as 


Et 


j dQ j x v B t 


dv 


(3.31) 


then combining Eqs. (3.29) and (3.30), one can write the radiative transfer equation as 

(3.32a) 


~ x v(Jv Iy) 


where 


J v — B 


V 


( IJr + 11cX_ ) 

(Tlr + Vc) 


(3.32b) 
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and 


X = 


hi 

H 


Xyly dV 


(3.32c) 


XyJBy dV 


The quantity r\ r is called the radiative life time ofvibrational states. It can be shown that [33] 
q r = 1/A(1,0), where A(1,0) is the Einstein coefficient for spontaneous emission from the 

first vibrational level. 


A combination of Eqs. (3.12) and (3.32) yields an alternative expression for Jy 


J v = 


B v 


{ Vr + Vc[ ( % + 

H 

■ 

XyJydV ) ]} 

« 

H 

Xy By 

dv 


(3.33a) 


where 


= ~\w * 


(3.33b) 


By noting that By and J v are isotropic, J v can be expressed as 

j, c = b, c + \ ) n 


(3.34a) 


where 


ff = 


2n 


fl 

J x v dv 


(3.34b) 
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and J vc and Bye are the values evaluated at the band center. This is because J v and By are slow- 
ly varying functions of v and for narrow bands, they can be assumed to be independent of 
v . In Eqs. (3.32) and (3.33), By is called blackbody intensity of radiation and is related to 
the Planck function of radiation ebv by eby - n By. This relation is true for isotropic radiation. 

For very low pressures, the collisional relaxation time q c is large compared to q r [31]. 
Therefore, the right hand side of Eq. (3.32b) reduces to B v X. On the other hand, for high 
pressures, q c approaches zero and the right hand side of Eq. (3.32b) becomes B v which is 
equivalent to the Planck function. This is the situation of LTE usually assumed in most radi- 
ation transfer analyses. 

The NLTE effect is characterized by the nonequilibrium parameter q which is expressed 
asq-q c /»lr - When q is unity or greater than unity, NLTE effect usually prevails; whereas 
for q being less than unity, LTE effect usually prevails. 

A combination of Eqs. (3.25a), (3.28b), and (3.31) results in an expression for q r [31] 
Vr' 1 = ( § ) 2 J( ^ ) dv = 8 n c o) c 2 ( £ ) J( ^ ) da> (3.35) 

where n is the number density of the molecules, and o) c = (vo /c) is the wave number corre- 
sponding to vo- In the derivation of Eq. (3.35), it has been assumed that B v is independent 
of frequency. An alternative form of Eq. (3.35) is given as 

tjT 1 - ( 8 n (o 2 ) ( 4 . 08 X HT 12 )T 0 5( T 0 ) (3.36) 
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where S is the integrated band intensity as defined in the earlier section and T 0 is the refer- 
ence temperature. The radiative life time r\ r has the units of seconds, and for fundamental 
bands of some important molecules values of ti r are tabulated in Appendix A. 


3.4 Radiative Flux Equations 


For this study, the physical model consists of an absorbing-emitting gas bounded by two 
infinite parallel plates ( Fig. 3.1 ). The plate surfaces are assumed to emit and reflect in a 
diffused manner. For the physical model considered, the integration of the transfer equation, 

Eq. (3.32a), gives 


9r © 


= 2 B la E£x m ) - 2 B^Ej, (to,,, - *«) + 2* [ J 7 ®(0 M*® “ *) dt 


X 0m 

I 


J o(0 E-£t T<n) dt ] 


(3.37) 


where 


Tq) X©y, *0© Xa»E 

Jjft = + \n i = jf r 


00 

-I 


(>)<*» 


rj. . _ ~ div gfl (y) o 

H v) ~ 2 n P 5(7) 2 n P 5(7) 


(3.38a) 


(3.38b) 


(3.38c) 
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In Eq. (3.37), xo^ is the optical path length and t is a dummy variable for x w . The quantities 
Biu, and B 20 ) are surface radiosities, and En(t) are exponential integral functions. It has been 
assumed that the spectral absorption coefficient k w is independent of temperature. The de- 
tailed explanation of the derivation of Eq. (3.37) is given in [ 31 ]. The expressions for sur- 
face radiosity can be given as [ 6 ] 

* 0 . 

B lot = E i< 0 e \ 0 > + 2 (1 - CjJ [ B^Ej, (X qJ + Jt I J m (t ) E 2 (t) dt ] (3.39a) 

0 

x 0m 

B 20 = e 2o> e 2o) + 2 (1 — £2a>) [ B^Ej^Xq^ + Jt j /®(0 B 2( r 0a> ~ 0 ^ ] (3.39b) 

0 

For black surfaces, Bi w = ei w and B^ = e^ . This is obvious from Eq. (3.39) because in 
that case = 1. Under the assumptions of LTE, 

Mt) = ^ 


The total radiative flux is given by 


00 

-1 


<lR = J 
0 


(3.40) 


Under LTE assumptions, Eq. (3.37) may be expressed for black bounding surfaces as 


»o> 


WO ~ e ia> e 2a> 2 [ j F l0) (t) E 2 (t a t) dt E 2 (t) E 2 (t x m ) dt ] 

o 


(3.41) 
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where 


F la (t) = eJJ) - e la ; F^Jt) = eji ) - 
A direct differentiation of Eq. (3.41) gives 

T. 

“ -zr- = - 2 [ F la> (x a ) + F^jTa)] + 2 [ f F lat (t) Efto, - t) dt 
aVa> J 

0 

*0m 

+ J ^2*(0 *l(' " *•) * 1 (5 - 42) 

Equations (3.41) and (3.42) are the LTE radiative flux equations for the physical model de- 
scribed in Figs. (3.1) and (3.2). 

Equation (3.37) can be written in a different form by replacing the exponential integral 
En (t) by an exponential function. The exponential integrals E 2 (t) and E 3 (t) in Eq. (3.37) 
are approximated as follows 

E 2 (t) - | exp (- §0 ; £ 3 (0 - - J £ 2(0 “ \ exp (- §0 0-^ 

The detailed discussion of this approximation is available in [6]. Substituting Eq. (3.43) in 
Eq. (3.37), one obtains 

q Rm = B la> eX P [ - | ] ” B 2 » ex P [" f ( L " ?) 1 
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Fig. 3.1 Physical model for radiative interaction 



Fig. 3.2 Incompressible laminar flow between two parallel plates 
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3n 


y j; 

j JJ(z) x«exp[ — ^ *Jy “ z )] dz ~ J *« ex P[” ’^x €a (z — ^ ^ 


( 3 . 44 ) 


For black bounding surfaces, the radiosities appearing in Eq. (3.44) should be replaced by 
appropriate expressions of the Planck function. 


3.4.1 Nongrav Formulation 

A combination of Eqs. (3.40) and (3.44) gives the following expression for radiative flux 
for nongray gases 

[ n Jmlz) - e lac ] | x«exp[- \x a (y - z) ] doidz 
Am 

- | j [ n J^z) - e^] | x«exp[- |x„(z - y) ] dtodz (3.45) 

y Am 

Equation (3.45) is valid for black bounding surfaces and it has been assumed that J^y) is 
independent of wave number within the band. 



By defining the following nondimensional independent variables 

t - y - ISL = JL ■ t' = L 
* “ L ~ * 0 * “o ’ 5 “o L 


(3.46) 
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where u is the dimensionless path length and uo = ( S/Ao ) PL, the radiative flux equation 
is expressed in it’s final form as 


?*(£) = e l~ e 2 


3 

2 J 


+ -A 0 u 0 ^ 


$ 1 

J - m'] - f F^i |«o(r - 


"8" 


6 1 

- OK’ - fffiri |«o(r - M' 


( 3 . 47 ) 


where A ' (u) is the derivative of the dimensionless band absorptance A (u) with respect to 
u. The detailed derivation of Eq. (3.47) is provided in [31]. 


Equation (3.47) is applicable to gases which have only one fundamental band contributing 
to the radiative process. For a multiband system, Eq. (3.47) can be written in the form 


<ldM) = e i ~ e 2 


+ 2 ^^o^o/ 4 

/=i 


f i 

J - {')«'] - [ ’ - l)K' 


-12": 


i— 1 


5 1 




where n denotes the number of bands. 
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Equation (3.48) can be regarded as a general expression for radiative flux equation. For 
LTE case, the last two terms, i.e., the terms involving r\, vanish, and for NLTE case, Eq. 
(3.48) could be regarded as the radiative flux equation in nongray gases. 

3.4.2 Gray Consideration under LTK Assumption 


Under LTE assumption, a combination of Eq. (3.40) and (3.44) results in the following 
radiative flux equation 


Qrl( x ) ~ F( x ) + M 


f 

[ T*(t) exp[- b(x - t) ]dt - I T*(t) exp[ — b(t -x)]dt> 

.o r 


(3.49a) 


where 


F(x) = oT\ exp( — bx) - aT*ex p[- b(x 0 - x)] 


(3.49b) 

b - |; r = bo (3- 49c ) 

Differentiating Eq. (3.49a) twice by using the Leibnitz formula, one obtains 


cPqRL _ (PF , 2T~ + 
dr 2 dt 1 dt 


rb 2 


r 

f T*(t) exp[ — b( x - t)]dt - I ^(Oexpl- b(t - x)]dt 
.0 T 


(3.50) 


Elimination of integrals between Eqs. (3.49a) and (3.50) results in 

= 2T^ + % - b 2 m < 3J1 > 
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Equation (3.51) is the general differential equation for radiative flux for gray gases under 
LTE assumption. For the specific relation of F (x) as defined in Eq. (3.49b), there is obtained 


% ~ - 0 


Consequently, Eq. (3.51) reduces to 


dr 2 


9 ~dT* 
4 q R ~ ^°~dF 


(3.52) 


This is the appropriate relation for radiative flux for gray gas analyses under LTE assumption 
of the present physical problem. 


3.4 3 Gray Consideration under NLTE Assumption 


The radiative flux equation for gray gas analyses under NLTE assumption can be obtained 
by adding the NLTE part of the radiative flux equation in Eq. (3.50). The NLTE part of the 
radiative flux equation can be given by 


tfolN - — KS' 


r r 0 

j ” W dt - j ^ exp t“ ^ “ r )]<* 


(3.53a) 


where 


, 3 1 
SPS(T) 


(3.53b) 
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Differentiating Eq. (3.53a) twice by using Leibnitz formula, one obtains 


<P<lRN _ 

ST ~ 2X5 


- KSb 2 


T 

I 


^exp[- b(T - t)]dt 


J ^exp[- b(t - x)]dt * 


(3.54) 


Equation (3.50) is the radiative flux equation under LTE assumption. The flux equation un- 
der NLTE assumption is given by combining Eqs. (3.50) and (3.54). 


M 


_ 9 = 3 

4 q * 30 dc 


(3.55a) 


where 

M 2 = (1 + 2 KS) (3.55b) 

Equation (3.55a) can be regarded as the radiative flux equation for gray gas analyses under 
NLTE assumption. The complete derivation of Eq. (3.55a) is provided in Appendix B. 


30 


Chapter 4 

GRAY RADIATIVE TRANSFER IN 
LAMINAR FLOW 


Gray medium assumption is probably the greatest approximation for the real gases. This 
assumption replaces the wave number dependent absorption coefficient by a wave number 
averaged quantity. The following sections deal with the general formulation and the resulting 

equations under LTE and NLTE conditions for gray gas assumption. 

4.1 General Formulation 

The physical model considered is assumed to be the same as discussed in the previous 

chapter ( Figs. 3.1 and 3.2 ). The boundary condition along each of the plate surfaces is taken 
to be that of a uniform heat flux, and thus the temperature of the plates T varies in the axial 
direction only. Only fully developed flow and heat transfer are considered. Attention is addi- 
tionally restricted to small temperature differences, such that constant properties and linea- 
rized radiation may be assumed. 

Since the wall temperature varies in the axial direction, there will exist radiative transfer 
between wall elements located at different axial positions, and in general this would preclude 
the possibility of achieving fully developed heat transfer. For linearized radiation, however, 
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it is easily shown that fully developed heat transfer can be obtained with the subsequent result 
that there will be no net radiative transfer between the wall elements. 

Within the confines of the foregoing assumptions, the energy equation for the present prob- 
lem can be obtained from Eq. (2.6) as 

bt _ _ a 2 r 1 

v * dx dy 2 QC P dy 

where the parabolic velocity profile is given by 

V, - 6v„[£ - (£) 2 ] 

The mean velocity is given by the expression 

L 

where Ac represents the cross sectional area normal to the direction of flow. For uniform wall 
heat flux and fully developed heat transfer, 6T/dx is a constant and is given by the expression 

dT _ '^mw (42c) 

dx v m Lx 


(4.1) 


(4.2a) 


(4.2b) 


Employing these quantities, Eq. (4.1) can be written in dimensionless form as 

_ i dq R 

d£ 2 




(4.3a) 


where 


t _y. „ .ilzhl 

( ~ L ’ ' (#) 


(4.3b) 


32 



Upon integrating this equation once, and by noting that d0p/d| = 0 and qR = 0 at | = 1/2, one 
finds 

^ - 2(3| z - 24 s ) + 1 = (4.4) 

Equation (4.4) can be treated as the general governing equation for both gray and nongray 
analyses. The only difference will be shown by the radiative flux equation on the right hand 
side of Eq. (4.4). Proper form of the radiative flux equation should be used in Eq. (4.4) to 
get the final solution for the dimensionless temperature, 0p. 


4.2 LTE Assumption 


As mentioned earlier, gray medium approximation replaces the wave number dependent 
absorption coefficient by a wave number averaged quantity. For lack of more rational choice, 
this average coefficient will be taken to be Kp (Ti ). For convenience, attention will be di- 
rected only to black bounding surfaces. Replacing by ic p in Eq. (3.44), integrating over 
the wave number, and utilizing the linearized expression T 4 — T j 4 = 4 T 3 ( T -Ti ), following 
expression is obtained for the present problem 

9r = 


6ax p T\ 


y l 

JW) - rjexpl- | xjy - z)]dz - j[T(z) - r 1]e xp[- | x p (z - y)]dz 


( 4 . 5 ) 


Upon differentiating this equation twice, the integrals repeat themselves and may be elimi- 
nated, and the resulting equation can be expressed as 
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(4.6a) 


<&lR 

<% 2 


9 2 

- Yq R = 


where 


XX p 

r^TT’X-A = 

The boundary conditions for this equation are 

= 0 » = 


(4.6b) 


(4.6c) 


Note that Eq. (4.6a) is analogous to Eq. (3.52) which was the radiative flux equation for gray 
gases under LTE assumption. The simultaneous solution of Eqs. (4.4) and (4.6) is straight- 
forward and the final expression for the dimensionless bulk temperature, 6bp, is expressed 


as [31] 



<^[24 - 12M 1 +M\+ (M\ - V2M X - 24) exp (- A^)] 


12 ri . 17Vi _ 17 
5 M\ 70A/2 70 


(4.7a) 


where 


48 - 3roW2 + 36r 0 


r _ Yl , 

1 M* [ 3Tq(1 - e" M 0 + 2M 1 (1 + e _M >) 


] 


(4.7b) 


+ (4.70 

The governing parameters for this equation are N and to- Note that N characterizes the rela- 
tive importance of radiation versus conduction for gray gases. 
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4.3 NLTE Consideration 


Under NLTE consideration, a combination of Eqs. (3.55) and (4.4) gives 


^jjpr - A#! 2 q R =n 9 W (6$ 2 - 4£ 4 + 1) 


(4.8a) 


where 


T7~ _ ^1 . —jrr— _ Yl . 1 / _ 1 . 3 *7 
M i “ -757= »TT ~ jT’ M 2 ~ 1 + J 




4PS(T) 


(4.8b) 


The quantities Mi and yi are defined in the same way as discussed in the preceding section. 


The solution of Eq. (4.8) is given as 

9. = CJ24 - 12J77 + M7 3 + (M7 3 - \lM[ - 24)e - ^ ] - ~— A + 


17 Yi 17 
70^2 70 


(4.9a) 


where 


c 7T 48-3^ jh36r 0 

1 M7 8 3r 0 (l - e"*T) + 2M7(1 + c-»T) 


(4.9b) 


Thus it is obvious that tj is the driving force for NLTE. For r| = 0, M 2 = 1, and the solution 
for 0bp reduces to that under LTE. 
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Chapter 5 


NONGRAY RADIATIVE TRANSFER IN 
LAMINAR FLOW 


In this chapter, the radiative heat transfer is discussed for nongray gases. General formula- 
tion of the problem is the same as discussed in the previous chapter. The solutions under LTE 
and NLTE conditions are presented in next sections. 


5.1 LTE Assumption 


The nongray radiative flux equation under LTE assumption is given by dropping the NLTE 
part of Eq. (3.48) 


4*(l) = e l~ e 2 


r f 



- 04 '] 


0 

| ^A'[§«o,<r - t)W > 
( 


(5.1) 
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Using the following relations 


Fm = UiO - ‘i.i - ( % )r, 

(j - r x ) 

(5.2a) 

^ - «.,«■) - «2. f = ( d “' h. 

(T-T?) 

(5.2b) 

Hu = n 0 ,<?) ( )r, 


(5.2c) 

St! 

y 

II 

0 

>-v 


(5.2d) 

e _ ( r - T i) 


(5.2e) 

M> ~ (#) 


(5.2f) 


Equation (5.1) can be expressed in an alternative form as 

£ 


?/;(£) 

?a> 


= «1 — «J + fix “or 0,J J 


,(S')A'(II)d£' 


(5.3a) 

where 


^0 = **[ f“oi (f - 1*) ] ; Fan = X*[ §“»,(£' - f) ] 


If, at any x-location, the two plates have the same temperature, then Ti = T 2 and ei = e 2 , and 
Eq. (5.3a) becomes 
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Combining Eqs. (4.4) and (5.4), one obtains 


1 - x 3 ) + 1 - 


?*(£) 31 

4® 2* 


y*. ^or 


1-1 


if 




1 

-f 


0p(l')A'(//)4’ K 


(5.5) 


The temperature profile within the gas, 6 p (| ), is thus described by Eq. (5.5). The boundary 

condition for this equation follows to be 0 p ( 0 ) = 0. 

For flow problems, the quantity of primary interest is the bulk temperature of the gas, 
which is the mean temperature at any location x in the flow direction. It is the temperature 
which fluid would assume if it was instantaneously and adiabatically mixed after leaving the 
cross section under consideration. Mathematically, the bulk temperature is defined as 

T > = -zhr c \ uTdA (S - 6) 

A c 

The bulk temperature can be expressed in dimensionless form as 

l 

V-7^- 6 f 9 '® (f -* 2)dE <5J> 

( ~ r ) J 


The heat transfer q w is given by the expression q w = hc( T i _T b)> where he is the equivalent 
heat transfer coefficient in Watts / m 2 -K. The heat transfer results are expressed usually in 
terms of the Nusselt number, N u , defined in terms of the hydraulic diameter D h . For the pres- 
ent geometry, D h = 2L. Eliminating the effective heat transfer coefficient he from the expres- 
sion for q w and N u , a relation between the Nusselt number and the bulk temperature is ob- 
tained as 
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(5.8) 


__ 2 L q w __2 

“ *W X - T b ) e bp 

The numerical solution of Eq. (5.5) is obtained by employing the method of undetermined 
parameters. For this case, a polynomial solution for 0 p ( |) is assumed as 

6 p&) = *o + a ii + a £ 2 + a£ 3 + aj 4 (5.9) 

After employing the conditions 6 p ( 0 ) = 0, 0 p ' (1/2) = 0, and 0 p ' (0) = - 0 p ' (1), Eq. (5.9) 
becomes 

W = ^ + £ 4 ) + a 2 (t 2 - x 3 + f 4 ) (5.10) 

The constants ai and a 2 are obtained by satisfying the governing integro-differential equa- 
tion at two convenient locations | = 0, and | - 1/4. A combination of Eq. (5.7) and (5.10) 
results in 


9 bp - Jo( 17a i + 3fl 2> (5.11) 

Thus, with a x and a 2 known, the bulk temperature ( or the Nusselt number ) is obtai ned from 
Eq. (5.11). The procedure for evaluating the constants aj and a 2 is described in detail in [32]. 


5.2 NLTE Consideration 


The radiative flux equation under NLTE consideration is given by Eq. (3.48). By employ- 
ing definitions given in Eqs. (5.2) and (5.3b), Eq. (3.48) can be expressed in an alternative 
form as 
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For black plates with Ti = T 2 , ei - e 2 , and Eq. (5.12) becomes 




The energy equation is given by Eq. (4.3a) which is rewritten as 
Combining Eqs. (4.4), (5.7), (5.13), and (5.14), one obtains 



( 5 . 14 ) 
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The numerical solution of Eq. (5.15) is obtained by the same way as discussed in the pre- 
vious section. Thus, 6b p is given by Eq. (5.11). Note that the constants ai and a 2 in this case 
are different. The entire procedure of evaluating the constants aj and a 2 is described in Ap- 
pendix C. 





Chapter 6 

RESULTS AND DISCUSSION 


Extensive results were obtained after solving the equations described in earlier chapters. 
The results are presented in terms of bulk temperature as a function of temperature, pressure, 
and spacing between the plates. The results were obtained for six different gases. These are 
CO, NO, OH, CO2, H2O, and CH4. LTE and NLTE results for these gases were compared 
at different temperature and pressure conditions. The results obtained for both gray and non- 
gray analyses are presented in the following sections. 

6.1 Gray Results 

In this section, results are presented for the six gases under consideration under gray gas 
assumption. Both LTE and NLTE results have been obtained for all the gases considered. The 
results are compared at pressures ranging from 0.1 to 10 atm. and at temperatures ranging 
from 300 K to 2000 K. The spacing between the plates is varied from 0.1 to 100 centimeters. 

The LTE and NLTE results for CO are presented in Fig. 6.1. In Fig. 6.1(a), pressure is 
kept constant at one atmosphere and LTE results are compared at four different temperatures 
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(300 K, 500 K, 1000 K,and 2000 IQ. The results show that as one goes from higher tempera- 
ture to lower temperature, the bulk temperature decreases for any particular plate spacing. 
At any given temperature, the bulk temperature is seen to vary significantly in the intermedi- 
ate range of plate spacings. A lower value of bulk temperature means higher capacity of the 
gas to exchange radiation. For lower spacings, there is almost negligible radiative contribu- 
tion. Radiative interaction increases with increasing plate spacing. Figure 6.1(b) illustrates 
the results at a fixed temperature of 500 K and for P = 0.1, 1, and 10 atm. The variation be- 
tween the results at different pressures show that as we decrease the pressure, the radiative 
heat transfer effect decreases. Thus Figs. 6.1(a) and 6.1(b) show that under LTE assumption, 
the radiative heat exchange capacity of CO is higher at higher temperatures and pressures. 

In Figs. 6.1(c) and 6.1(d), LTE and NLTE results are compared for CO. In Fig. 6.1(c), 
pressure is kept constant at one atmosphere and temperature is varied from 300 to 2000 K. 
The results show that the variation between LTE and NLTE results is maximum at lower tem- 
peratures. The LTE and NLTE results show maximum differences at moderate pressures 
(Fig. 6.1(d)). This implies that NLTE effect is pronounced at lower temperatures and moder- 
ate pressures. Thus NLTE effect must be considered when the temperature and pressures are 
relatively low. It should be noted that the effect of NLTE is to lower the ability of the gas 
for radiative interaction. 

Figures 6.2 present results for NO. In Figs. 6.2(a) and 6.2(b), LTE results are compared 
at different temperatures and pressures, and in Figs. 6.2(c) and 6.2(d), LTE and NLTE results 
are compared at different temperatures and pressures. The result shows the same behavior 
as in the case of CO. In a similar manner, Figs. 6.3 show the results for OH. There appears 
to be no NLTE effect for OH. Figure 6.4 is a comparison of LTE and NLTE results for CO, 
NO, and OH at a temperature of 500 K and one atmospheric pressure. The results show that 
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OH has the lowest radiative ability while CO shows the highest radiative ability at the partic- 
ular temperature and pressure considered. Further, The variation between the LTE and NLTE 
is maximum for CO and minimum for OH. This implies that CO has a higher tendency to 
show radiative effect as well as it is more sensitive to nonequilibrium phenomena. 


The LTE and NLTE results for polyatomic gases are presented in Figs. 6.5 through 6.8. 
Figure 6.5 presents results for CO* The LTE results are compared for temperatures ranging 
from 300 Kto 2000 K and one atmospheric pressure. The results illustrate that bulk tempera- 
ture decreases with increasing temperature. In Fig. 5(b), LTE results are shown at different 
pressures between 0.1 and lOatm. and at a temperature of 500 K. It is seen that bulk tempera- 
ture decreases, in general, with increasing pressure. At higher pressures, bulk temperature 
decreases smoothly for low plate spacings, but at higher plate spacings, it becomes uniform. 
The reasons for this behavior of CO 2 are given in [ 31, 32 ]. Figure 6.5(c) is a comparison 
of LTE and NLTE results at various temperatures and 1 atmospheric pressure. It is seen that 
there is almost no difference between LTE and NLTE results at any temperature. In Fig. 
6.5(d), LTE and NLTE results are compared at various pressures and a temperature of 500 
K. At a pressure of 0.1 atm, there are some differences between LTE and NLTE results. The 
differences are negligible at higher pressures. 

The results for H 2 O are presented in Figs. 6.6. The trend of the results are more of less 
the same as observed in the case of CO2. The LTE results are compared at different tempera- 
tures and one atmospheric pressure in Fig. 6.6(a). The results show that bulk temperature 
decreases with increasing temperature which implies higher capacity for radiative exchange. 
Figure 6.6(b) illustrates results at different pressures and 500 K temperature. In general, the 
bulk temperature is seen to decrease with pressure. It becomes uniform at higher pressures 
and at higher plate spacings. However, bulk temperature becomes uniform at higher plate 
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spacings compared to CO2. Figures 6.6(c) and 6.6(d) show a comparison of LTE and NLTE 
results at different temperatures and pressures. There is almost no variation between LTE and 
NLTE results except at 500 K and 0. 1 atm. The variation is more than that observed for CO2. 

The results for CH4 are presented in Figs. 6.7. In Figs. 6.7(a) and 6.7(b), LTE results are 
presented at different pressures and temperatures. The trend of results is similar to that exhib- 
ited by CO2 and H2O. Figures 6.7(c) and 6.7(d) show comparison of LTE and NLTE results 
at different temperatures and pressures. There is absolutely no difference between LTE and 
NLTE results at any temperature and pressure. This implies that NLTE consideration is not 
important for CH4. 

Figure 6.8 shows a comparison of NLTE results for all the gases under consideration at 
500 K and one atmospheric pressure. It is seen that bulk temperature is highest for OH and 
lowest for CO2. This implies that OH is the least radiating gas whereas CO2 has the highest 
ability for radiative exchange under the given conditions. 

The overall conclusion is that the NLTE results for polyatomic gases do not show much 
variation from LTE results. On the other hand, the NLTE results for diatomic gases show 
significant variations from LTE results at lower temperatures and moderate pressures. This 
implies that NLTE has significant influence on diatomic gases at relatively low temperatures 
and pressures. 
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Fig. 6.1(c): LIE and NLTE results for CO, P"1 etm, 1^300-2000 K 
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Pig. 6.1(d): LTE and NLTE results for CO, 7^*500 K, P«0.1-10 atm 
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Fig. 6.2(a): LTE results for NO, P“1 atm, T w -300 2000 K 
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Fig. 6.2(b): LTE resulia for NO, TV-500 K, P-0.1-10 aim 
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Fig. 6.2(d): LTE and NLTE results for NO, 500 K, P-0.1-10 atm 
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Fig. 6.3(a): LTE results for OH, P-1 atm, T w -300-2000 K 
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Fig. 6.3(b): LIE results for 
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Fig. 6.3(c): LIE and NLTE results for OH. P-1 atm. Ty-300-2000 K 
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Fig. 6.3(d): LIE and NLTE results for OH, TV-500 K, P-0.1-10 atm 
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Fig. 6.5(a): LTE results for C0 2 , P=1 atm, 1^300-2000 K 
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Fig. 6.5(b): LTE results for C0 a , T*— 500 K, P-0.1—10 atm 
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Fig. 6.5(c): LIE and NLTE results for C0 2 , P-1 atm, T^-300-2000 K 
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Fig. 6.5(d): LIE and NLTE results for C0 2 . TV-500 K, P-0.1 10 atm 
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Fig. 6.6(a): LTE results for HgO. P=1 atm. T^-300-2000 K 
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Fig. 6.6(b): LTE r« suits for H^O, 500 K, P—0.1—10 atm 
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Fig. 6.6(d): LIE and NLTE raaulta for HgO. V500 K, P-0.1-10 atm 
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Fig. 6.7(a): LTE results for CH V P=1 atm, Ty-300-2000 K 
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Fig. 6.7(c): LIE and NLTE results for CH V P-1 atm* T^-300-2000 K 
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Fig. 6.7(d): LTE and NLTE results for CH* V“500 K, P-0.1-10 atm 
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Fig. 6.8: Comparison of NLTE results for different Gases at 500 K and 1 Atm. 
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6.2 Nongray Results 


In this section, nongray results are presented for different gases under LTE and NLTE 
conditions. The temperature and pressure ranges are same as for gray gas analyses. The plate 
spacing is kept between 0.01 to 100 centimeters. Figures 6.9 through 6.14 present results for 
CO, NO, OH, C0 2 , H 2 0, and CH 4 , respectively. 

Figure 6.9(a) presents LTE result for CO at temperatures ranging from 300 to 2000 K and 
for one atmospheric pressure. The results show that the bulk temperature decreases from 
lower to higher values of wall temperatures. In Fig. 6.9(b), temperature is kept fixed at 500 
K and results are compared at 0.1, 1, 5, and 10 atm. It is seen that the bulk temperature de- 
creases with increasing pressure. One interesting observation is that the variation is seen only 
at higher plate spacings. At lower plate spacings, the results are almost identical for any tem- 
peratures and pressures. This is due to optically thin radiative interaction in this region. Fig- 
ure 6.9(c) is a comparison of LTE and NLTE results at one atmospheric pressure and temper- 
atures in the range of 300 to 2000 K. The study reveals that LTE and NLTE results differ 
only at lower temperatures. Results presented in Fig. 6.9(d) demonstrate that NLTE effects 
are important only at low pressures. 

Results for NO are presented in Fig. 6.10. Figures 6.10(a) and 6.10(b) are comparison 
of LTE results at different pressures and temperatures. The trend of the results are similar 
to that observed for CO. Figures 6.10(c) and 6.10(d) show LTE and NLTE comparisons at 
different pressures and temperatures. The results follow the same pattern as for CO. Figures 
6.11 illustrate results for OH. A study of Fig. 6.11(a) shows that OH has very little radiative 
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interaction at a temperature of 300 K and one atmospheric pressure. However, it shows some 
effect at higher temperatures and pressures (Figs. 6.11(a) and 6.11(b)). In Figs. 6.11(c) and 
6.11(d), LTE and NLTE results are compared. It is seen that there is no difference between 
LTE and NLTE results at any temperature and pressure. This implies that NLTE does not 
have significant effect on OH at any temperature and pressure. However, it does have some 
effect at low temperatures and pressures (Figs. 6.11(c) and 6.11(d)). 

Figures 6.12 present results for CO 2 . Figures 6.12(a) and 6.12(b) present LTE results at 
different temperatures and pressures, respectively. It is seen that bulk temperature decreases 
with increasing pressure and temperature. Figures 6.12(c) and 6.12(d) are comparison of 
LTE and NLTE results at different temperatures and pressures, respectively. There appears 
to be no difference between LTE and NLTE results at these conditions. Figure 6.12(d) sug- 
gests that there is little difference between LTE and NLTE results at 0.1 atm. and 500 K. Fig- 
ures 6.13(a) and 6.13(b) are comparison of LTE results for H 2 O at different pressures and 
temperatures. The trend is almost similar to that observed for CO 2 . Figures 6.13(c) and 
6.13(d) are comparisons of LTE and NLTE results. There is no difference between LTE and 
NLTE results except at low temperatures and pressures. The difference is quite significant 
at 0.1 atm. and 500 K. The difference in this case is more than that observed for CCL. Figures 
6.14(a) and 6.14(b) present LTE results for CH4 at various temperatures and pressures, re- 
spectively. Again, the bulk temperature is seen to decrease with increasing temperature. Fig- 
ures 6.14(c) and 6. 14(d) are comparison of LTE and NLTE results for CH4 at various temper- 
atures and pressures, respectively. The results do not show any difference between LTE and 
NLTE at any temperature and pressure conditions. Thus, NLTE consideration is not impor- 
tant for CH4. Figure 6.15 is a comparison of NLTE results for all the gases under consider- 
ation at 500 K and one atmospheric pressure. The results show that the gases in the descend- 
ing order of bulk temperature are OH, CO, NO, CO 2 , C^and H 2 O. This implies that among 


73 



the gases H 2 0 is highest radiating gas whereas OH is the least radiating gas. 

By studying the results under nongray assumption, it becomes obvious that bulk tempera- 
ture usually decreases with an increases in temperature and pressure. This implies that the 
radiating capacity of the gases increases with an increase in temperature and pressure. Se- 
cond important observation is that polyatomic gases do not contribute significantly in NLTE 
process. However, OH being a diatomic radical, shows least variation from LTE conditions 
among the diatomic gases under consideration. Further, CH 4 shows absolutely no effect of 
NLTE at any temperature and pressure; whereas NLTE results for other polyatomic gases 
show little variation from LTE results at moderate pressures and temperatures. 

6.3 Comparative Results for Gray 
and Nongray Analyses 

In this section, gray and nongray results are compared at different temperatures and pres- 
sures. Figures 6.16 through 6.21 present these comparative results 

Figure 6.16(a) presents gray and nongray NLTE results for CO at temperatures ranging 
from 300 to 2000 K and one atmospheric pressure. The results show that there is significant 
difference between gray and nongray results at lower temperatures. At higher temperatures, 
the difference is relatively lower. However, the rate of decrease of the difference between 
gray and nongray results is less as temperature is increased. Thus, even at 2000 K, significant 
difference between gray and nongray results is observed. Figure 6.16(b) is a comparison of 
gray and nongray results at 500 K and 0.1, 1, and 10 atm. The variation between gray and 
nongray results is quite significant and it increases with increasing pressure. 
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Fig. 6.9(b): LTE results for CO, Tj-SOO K, P-0.1—10 atm 
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Fig. 6.9(c): LTE and NLTE results for CO. P-1 atm, 1^-300-2000 K 
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Fig. 6.9(d): LTE and NLTE results for CO, T*— 500 K, P-0.1-10 atm 
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Fig. 6.10(a): LTE results for NO, P-1 atm, T w -300-2000 K 
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Fig. 6.10(b): LTE results for NO, 500 K, P—0.1—10 atm 
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Fig. 6.10(c): LTE and NLTE results for NO, P-1 atm, 1^300-2000 K 
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Fig. 6.10(d): LTE and NLTE results for NO. T^-500 K, P-0.1-10 atm 
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Fig. 6.11(a): LTE results for OH, P«=l atm, T—=300- 2000 K 
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Fig. 6.11(b): LTE results for OH, T^fSOO K, P—0.1—10 atm 
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Fig. 6.11(c): LIE and NLTE results for OH. P-1 aim. 1^300-2000 K 
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6.11(d): LIE and NLTE results for OH, T^-500 K, P-0.1-10 atm 
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Fig. 6.12(a): LTE results for C0 8 , P-1 atm, T w =300-2000 K 
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Fig. 6.12(c): LIE and NLTE results for CO a , P-1 atm, 1,^300-2000 K 
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Fig. 6.12(d): LTE and NLTE results for C0 a , T^-500 K, P-0.1-10 atm 
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Fig. 6.13(a): LTE results for RjO, P-1 atm. V-300-2000 K 
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Fig. 6.13(c): LTE and NLTE results for HgO. P-1 atm, TV-300-2000 K 
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Fig. 6.13(d): LTE and NLTE results for HjO, T*— 500 K, P-0.1-10 atm 
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Fig. 6.14(c): LIE and NLTE results for CH* P-1 atm, 1^300-2000 K 


97 



(Vl *b)/(V’l)= 


0.25 I 1 r 



Plate Spacing L (cm) 


Fig. 6.14(d): LIE and NLTE reaults for CH*. Tj-500 K, P-0.1-10 atm 
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Fig. 6.15: Comparison of NLTE results for different gases 




Figure 6.17(a) illustrates comparative results for gray and nongray for NO at four tempera- 
tures in the range of 300 to 2000 K and one atmospheric pressure. As seen in the case of CO, 
the difference between the two results is appreciable and decreases slowly with increasing 
temperature. Figure 6.17(b) provides the comparison at 500 K and 0.1,1, and 10 atm. It is 
seen that the difference between gray and nongray results increases with increasing pressure. 


Figures 6.18 through 6.21 present results for OH, CO 2 , H 2 O, and CH 4 , respectively. The 
results show the same behavior as shown by CO and NO. Thus, it is obvious that the differ- 
ence between gray and nongray results is very significant at any temperature and pressure. 
The difference decreases slowly with increasing temperature and increases with increasing 
pressure. Another interesting observation is that the bulk temperature, under gray gas as- 
sumption at any pressure and temperature condition, is lower than that under nongray gas 
assumption. This means that radiating effect of the species under gray gas assumption is 
higher than that under nongray assumption, i.e., the gray gas approximation overpredicts the 
ability of a gas for radiative interaction. 
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Fig. 6.16(a): Comparison of Gray and Nongray(NLTE) results for CO 
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Fig. 6.16(b): Comparison of Gray and Nongray(NLTE) results for CO 
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Fig. 6.17(a): Comparison of Gray and Nongray(NLTE) results for NO 
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Fig. 6.17(b): Comparison of Gray and Nongray(NLTE) results for NO 
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Fig. 6.18(a): Comparison of Gray and Nongray(NLTE) results for OH 
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Fig. 6.18(b): Comparison of Gray and Nongray(NLTE) results for OH 
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Fig. 6.19(a): Comparison of Gray and Nongray(NLTE) results for C0 2 
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Fig. 6.19(b): Comparison of Gray and Hongray(NLTE) results for C0 a 
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Fig. 6.20(a): Comparison of Gray and Nongray(NLTE) results for HjO 



>9 



=(T l -T b )/(q w LA) 



Plate Spacing L (cm) 


Fig. 6.20(b): Comparison of Gray and Nongray(NLTE) results for 11,0 
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Fig. 6.21(a): Comparison of Gray and Nongray(NLTE) results for CH 4 
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Fig. 6.21(b): Comparison of Gray and Nongray(NLTE) results for CH^ 



Chapter 7 

CONCLUDING REMARKS 


Analytical and numerical procedures have been developed to treat a physical problem 
when local and nonlocal thermodynamic equilibrium conditions prevail. The NLTE effects 
have been investigated for some diatomic and polyatomic gases under gray and nongray gas 
assumptions. The NLTE results under gray and nongray assumption are compared at differ- 
ent temperatures and pressures. The NLTE condition is governed by the NLTE parameter 
t]. For r] = 0(1), NLTE prevails and for rj = 0, LTE prevails. The bulk temperature is ex- 
pressed as a function of plate spacing at various temperatures and pressures. The limiting 
value of bulk temperature is 0.243 which corresponds to negligible radiation. 

The results show that, in general, bulk temperature decreases with increasing temperatures, 
pressures, and plate spacings. This implies that the radiative ability of the gases increases 
with increasing temperatures, pressures, and plate spacings. The consideration of NLTE ef- 
fect is important while dealing with diatomic gases. The NLTE effect becomes significant 
at lower temperatures and pressures. Therefore, it is necessary to take NLTE into account 
when working temperatures and pressures are moderate. Among the gases, OH shows least 
radiative effect and H 2 O shows highest radiative effect under both gray and nongray assump- 
tion. Polyatomic gases, however, do not show much variation from LTE at any temperature 
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and pressure. Therefore, NLTE consideration is not important for polyatomic gases. The 
gray gas approximation overpredictstheabilityofagas for radiative interaction. The method 
developed can be applied to investigate NLTE effects in other diatomic and polyatomic 
gases, mixture of gases, and multidimensional problems using sophisticated spectral models 
for radiation absorption. 
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APPENDIX A 

INFORMATION ON SPECTROSCOPIC 
PROPERTIES 


To formulate radiative heat transfer problems, it is essential to know the various spectro- 
scopic properties of the gases under consideration. Some relevant information for the gases 
into consideration is provided here. For a detailed understanding and information, one 
should refer to [31]. 

A correlation for the exponential wide band absorptance based on a set of mathematical 
properties of the total band absorptance was introduced by Tien and Lowder [33], and this 
is expressed as 


a-a o i o [ u /( 0 [ u “ + + 2/ ^] + i} 

(A.la) 

u-ClPY; ,= [ (4Ci J Cj) ]P. - B 2 P' 

(A. lb) 

f(t) - 2 . 94[1 - exp( - 2 . 60()] 

(A.lc) 


The quantities u, t, B 2 , and P e are all dimensionless. The band width parameter Ao = C 3 , and 
it is a function of temperature only. The correlation quantity Co 2 is proportional to (C 1 /C 3 ). 
It can be shown [33] that 
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A 0 C 2 0 — 5(7) 


(A.2) 


The quantity t is the line structure parameter, and P e is the equivalent ( effective ) broadening 
pressure and is given by 


Pc = [— p —] n , Pq - 1 atm (A.3) 

r o 

where Pa is the partial pressure of the absorbing gas, Pb is the partial pressure of the broaden- 
ing gas, and b is the self-broadening power of the molecule A with respect to molecule B 
( N 2 in all cases here ). The pressure parameter,^ which is always less than or equal to unity, 
accounts for the partial overlapping of bands with different lower states [35]. The quantities 
b and n are obtained experimentally by using various gas compositions. 

By using the information on Cj, C 2 , and C 3 , the quantities Ao, Co 2 , and B 2 were evaluated 
and expressed in the units employed here. These are given in Table A.l. The procedure for 
converting the correlation constants Cj, C 2 , and C 3 from the data of Edwards et al. [35] into 
the relations and units of quantities Ao, Cq 2 , and B 2 is discussed in [31]. 
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Table A.1 Exponential Band Model Correlation Quantities * 




Band 

Pressure 



B 2 (T) 

Molecule 

Band 

Center 

Parameters 

Ao(T) 




cm -1 







1* 

CD c 

b 

n 

cm -1 


dimensionless 

CO 

4.7 

2143 

1.1 

0.8 

38.1 ki(T) 

6.24 k2(T) 

0.314 6i(T) 

2.35 

4260 

1.0 

0.8 

38.1 ki(T) 

0.024 k 2 (T) 

0.300 6i(T) 


5.3 

1876 

1.0 

0.65 

36.0 k!(T) 

** 

** 

NO 

2.7 

3724 

1.0 

0.65 

36.0 ki(T) 



OH 

2.8 

1.4 

1 

** 

a 

I 

** 

** 


15 

667 

1 

H 

22.3 ki(T) 

15.2 k 2 (T) 

0.084 ki(T) 

CO2 

4.3 

2350 

H 

EH 

19.9 k!(T) 

98.7 k 2 (T) 

0.329 ki(T) 


2.7 

3715 


0.65 

41.6 ki(T) 

1.72 k2(T) 

0.111 62(T) 




■ 



<te(T) 



I.R 

500 

5.0 

1.0 

49.4 ki(T) 

771 k 2 (T) 

0.073/ki(T) 









6.3 

1600 

5.0 

1.0 

90.1 ki(T) 

3.35 k^T) 

0.130/ki(T) 

h 2 o 

2.7 

3750 

5.0 

1.0 

112.6 ki(T) 

1.52 k^T) 

0.145/ki(T) 


1.87 

5350 

5.0 

1.0 

79.7 ki(T) 

0.276 k 2 (T) 

0.118/ki(T) 







<ton(T) 



1.38 

7250 

5.0 

1.0 

79.7 ki(T) 

0.230 k^T) 

0.201/ki(T) 







<hoi(D 


ch 4 

7.6 

mm 

D 

0.8 

39.8 ki(T) 

4.58 k 2 (T) 

0.067 ki(T) 

3.3 

u 


0.8 

95.3 ki(T) 

3.15 k^T) 

0.036 ki(T) 
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* Notes on table A.l : 

1. Notations: ki(T) = (T/300) 1 ' 2 , = (300 /T) 1 ' 2 , = [ ^^/kiCT) ] x 10 -3 , 

6 2 = <t»3 2 (D/[<k(T)k 1 (T)] 

h = 6.625 x 10 -27 erg-sec, c = 2.998 x 10 10 cm/sec, k = 1.380 x 10 -16 erg/K, 
hc/x “ 1.44 cm-K 

2. For CO: o) = 2143 cm" 1 , *i(T) = [ 15.15 + 0.22 (T/T 0 ) 3/2 ] [ 1- exp (-hccoAcT) ], 

To = 100 K, S(Toi) = 289 ±30 cm -2 -atm -1 , Toi = 300 K, t| r = 0.0297 seconds. 

3. For NO: 0) = 1876 cm -1 , S(Toi) = 132 cm -2 -atm -1 , Toi = 300 K, % = 0.07 secs. 

4. For OH: to = 3570 cm -1 , S(Toi) = 110 cm _2 -atm -1 , Toi = 300 K, % = 0.0232 secs. 

5. For CO2: o>i = 1351 cm -1 , o>2 = 667 cm -1 , 103 = 2396 cm -1 

4> 2 (T) = { l-exp [ ( - hc/xT ) ( o>i + C03 ) ] } x { [ 1-exp ( - he u)i/kT ) ] [ 1-exp 

(- he (03/KT ) ] } -1 , * 3 (T) = 1+0.053 (T/300) 3 / 2 , SiCToi) = 362 ± 90, S 2 (T 0 i) = 2970, S 3 (T 0 i) 

= 67 cm -2 -atm _1 , Toi = 300 K, r| lr = 0.215 secs., ri2r = 0.0022 secs., r| 3r = 0.0846 secs. 

6. For H2O: 0)1 = 3652 cm -1 , 0)2 = 1595 cm -1 , o) 3 = 3756 cm -1 , <J> v iv2v3 (T) = { 1- exp 
[ —he (vio>i +V20)2 +v 3 o) 3 )/kT ] } x { [ 1- exp ( — hco)2/xT ) ] [ 1- exp ( -hco) 3 /KT ] } -1 , 
<j» 7 (T) = exp [ -17.6 (T/100)- 1/2 ], Si(T 0 i) = 1840, S 2 (T 0 i) = 300 ± 60, S 3 (T 0 i) = 200 ± 20 
cm _2 -atm -1 , T01 = 300 K, r)2r = 0.0468 secs., ii 3r = 0.0127 secs. 

6. For CH4: 0)1 = 1310 cm -1 , 0)2 = 3020 cm -1 , Si(Tqi) = 185, S 2 (Toi) = 320, cm -2 — atm -1 , 
Tqi = 300 K, r|ir = 0.113 secs., rj2r = 0.0122 secs. 


** The information is not available in literature, and therefore suitable assumptions were 
made to calculate those quantities. 

• For additional informations, one should refer to [31]. 
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APPENDIX B 


SOLUTION PROCEDURE FOR GRAY 
NLTE FORMULATION 


In this appendix, solution procedure for gray gas analysis under NLTE assumption is pro- 
vided. 

The radiative flux equation for the present study is given by Eq. (3.44). Usingthe following 
relations 


where 


00 

| B l0 dw = B x - e t = a T 4 

0 

00 

| B^da) = B 2 = e 2 = a T 2 4 

0 

00 

| Mz)da> = J(z) = ^ + \vH(z) 


H(z) = 


dq* 

IT 


2aPS(T) 


(B.l) 


(B.2) 


(B.3) 


(B.4) 


and substituting Eq. (3.40) in Eq. (3.44), one obtains 

q R = oTj 4 exp(- be) - < 7 T 2 4 exp[(— be 0 - x)] 
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8* 


X *0 

+ I * j e(t) exp[ — b(x - t)]dt - j e(f)cxp[- b(t - x)]dt > 


T *0 

j ~w cxp ^~ “ w* ~ | w exp [- *** - x ^ dt 


Y x 


PS(T) 


(B.5) 


Equation (B.5) can be rewritten as 

<1r( x ) = <1rl( x ) + y^) (B.6) 

where qRL(x) and qRN(x) are defined as in Eqs. (3.49a) and (3.53a) respectively. Differentiat- 
ing Eq. (B.6) twice using Leibnitz formula, one obtains 


= ^ + 2 + rb\l) - 2KS - KSb\lI) 
dx 1 dx 2 dx w dx 2 


(B.7a) 


where / = j T 4 ^) exp[ — b(r - t)]dt — J T*(t) exp[ — b(t — x]dt (B.7b) 

0 x 

x *0 


"-{ 3 * 


exp[— b(r — t)]dt 


[ 

-J 


exp[— b(t — x )]dt 


(B.7c) 


and F(t), b, T, and KS are defined as in Eqs. (3.49b), (3.49c), and (3.53b) respectively, the 
quantity I can be obtained from Eq. (3.49a) as 


, = <1rl( x ) ~ F ( x ) 

r 


(B.8a) 


Similarly, the quantity II can be obtained from Eq. (3.53a) as 

4rn 


II = - 


KS 


(B.8b) 


125 



Substituting Eqs. (B.8a) and (B.8b) in Eq. (B.7a), there is obtained 




.dT* 


Kf ™ — Z./7 3= 

w 2-*r 4 q » 30 it 


which is Eq. (3.55a), and M 2 is defined as in Eq. (3.55b). 


(B.9) 
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APPENDIX C 


SOLUTION PROCEDURE FOR NONGRAY 
NLTE FORMULATION 


In this appendix, some important steps to solve the nongray NLTE equation, Eq. (5.13), 
are given. 


Substituting Eq. (5.10) in 5.(13), one obtains 


flj( 1 - 6£ 2 + 4 £ 3 ) + « 2 ( 2 £ ~ <£ 2 + 4 | 3 ) - 2 ( 3 £ 2 _ 2£ 2 - 2 £ 3 ) + 1 


|(^o- 


f i 

( - J ((fWW I- 

0 { 


-faf 




1 

-I 


(1 + ^'WI 


(Cl) 


where A'(I) and A'(II) are defined as Eq. (5.3b). 


Solving Eq. (Bl) at I* = 0, and assuming a multiband species, there is obtained 


0 ]O.y + 0^2 — a Q 


(C2) 
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where 


a 0 = (|*7cR 0 - 1) ( C3 > 

a x * 1 + [feWcR i - 2^3 + c 4 /?4)] - [(|)i 7 (^ 2 “ c^i)] ^ 

a 2 = - 2 cfc, + c 4 /?4)] - [(fto(cR 0 " 6 ^i + 6 ^2)] ^ 

where c = 2/(3 u 0 ), b = 1/u, and Rj’s are integral functions defined as 

b 


Rq = | A>(u)d« 

(C6) 

C/ 

b 

f 


i?i - 1 uA\u)du 

(C7) 

J 

0 


b 

* 


R 2 = I u 2 A'(u)du 

(C8) 

J 

0 


b 


R 3 = I u 3 A*(u)du 

(C9) 

J 

0 


b 


R a = 1 u 4 A*(u)du 

(CIO) 

J 

0 


In a similar manner, solving at = 1/4, one obtains 


a 1 a 3 + a^a 4 = a 5 

(CU) 


where 


<z 3 


- + #< S 2 + S 3> - (|) A < - + S 6> + «*7]} + 
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{(|wt(|)<Sl + 6^2 + S 3 ) - 12 ^Sj} + ii 

(Ci 2 ) 


04 - + (^)<s 2 + Sj) - (i)^ - c’fSj +5,0 + c 4 S 7 ]J 

+ 


{(fM^l + 6^2 + S 3 ) - l^Sj} + ^ 

fCi3) 


«5 - {(|)^}s, - $ 

(Ci^j 

— 

and Sj’s are integral functions defined as 



3i>/4 

r 



= I A'(u)du 

(C15) 


J 

b/4 



b/4 

r 


mmmm 

S 2 = I u A'(u)du 
0 

(C16) 

— 

3b/4 

r 


— 

S 3 = I u A'(u)du 

n 

(C17) 

— 

U 

3Z>/4 

t 



S A = I m 3 A'(u)du 

(Cl 8) 


J 

b/4 



b/4 

r 



S s = I w 3 A'(u)<2w 

(Cl 9) 

„ 

J 

0 
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(C20) 


3b/ 4 

5 6 = j u 3 A*(u)du 

0 

3b/ 4 

5 7 = j u 4 A'(u)du ( C21 ) 

b/4 


Thus, the constants ai and a 2 can be evaluated by solving Eqs. (C2) and (Cll) 

<W± ~ a 2 <*s (C22a) 

DEN 

fl 2 “ - 

where DEN — ~ <*2^*3 


(C22b) 

(C22c) 


Once a! and a 2 are evaluated, the solution for bulk temperature, 6b P is given by Eq. (5.11). 
For additional information, one should refer to [32]. 
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APPENDIX D 


SELECTED COMPUTER PROGRAMS 
AND RESULTS 

In this appendix, computer programs for all the gases are presented which were used to 
obtain the results. Two general programs are provided which can solve LTE and NLTE prob- 
lems under gray as well as nongray assumption. After every program, results are presented 
in tabulated form. The programs can be used to obtain results for other gases simply by 
changing the spectroscopic properties. 
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c program to calculate LTE and NUE bulk temp, under gray 
c gas assumption for CO 

implicit double precision (a-h,o— z) 
real l,kfb 

dimension u(10),press(4),Temp(4) 

data u/D.1,03,1.0^.0^.0,10.0^0.040.0, 75., 100.0/ 

data press/0.1,1.,5.,10./ 

daU temp/300.400., 1000.0,2000.0/ 

open(unit=21, file=’nlp’) 

open(unit=22, file=’lp’) 

open(unit=23, £ile= ’out23.dat’) 

write(23,230) 

write(21,13) 

write(21,*) 10,1 

13 fonnatpy/xy.’ty, ’tl’,/,i4,x,’l’) 

write(22,14) 
write(22,*) 10,1 

14 fonnatC^y.’xy.’ty, IjAjLSV) 
do 101 it=l,4 

tw=temp(it) 
do 202kk=l,4 
p=prcss(kk) 

do 303 is 1,10 

MO 



c Calculation of Plank’s Function and it’s derivative 
c wnb Band Center 
c hek Constant 

c ccc cl*c2 (erg_k_cm**3/sec) 
c pfdbi Plank’s Function’s derivative for ith band 

c 

tkl=tw**2 
tk2=tw**04 
tk3=tw/273.0 
hck=l .439257246 
ts=300.0/tw 

c * 

c Spectroscopic Properties of CO 
c Two Bands of CO are cosidered(4.7 and 2.35 microns) 
c wnbi Band Center (1/cm) 

c — ‘ 

wnbi =2143. 
wnb2=4260. 
c2bl=hck*wnbl 
c2b2=hck*wnb2 
ccc=0.00005 3847734 
ccbl=ccc*(wnbl**4.) 
ccb2=ccc*(wnb2* *4.) 
tbl=c2bl/tw 
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tb2=c2b2/tw 

tebl= exp(tbl) 

teb2= cxp(tb2) 

clbl=ccbl/c2bl 

clb2=ccb2/c2b2 

pfbl=clbl/(tebl-1.0) 

pfb2=clb2/(tcb2-1.0) 

devl=tkl •((tcbl-l.O)* *2.0) 

dev2=tkl *((teb2-l .0) * *2.0) 

pfdbl=(ccbl *tebl)/devl 

pfdb2=(ccb2*teb2)/dev2 

c 

c Band Model Conelations(Tien & Lowder Wide Band Model) 

c azi aoi (1/cm) 

c czsi coi**2 (1/atm-cm) 

c bsi b**2 (Nondimensional) 

c omegi Wave Number (1/cm) 

c si Integrated Band Intensity (1/atm cm* *2) 

c 

akl=(tw/300.)**0.5 

ak2=(300./tw)**1.5 

azl=38.1*akl 

az2=azl 


c dkf Thermal Conductivity (Eig/cm-sec-k) 


kfb=(1488.365171)*(tk3**1.23) 

omegl=2143. 

tx=-(hck/tw) 

txl=tx* omegi 

etxl= exp(txl) 

cl=1.0-etxl 

c01=6.24*ak2 

c02=0.042*ak2 

sl=azl*c01 

s2=az2*c02 

ETCl=(14.)**(l./4.) 

ETC2=0.015*ETC1 

ETC3=TW**(-l./3.) 

ETC4=ETC3-ETC2 

ETC5=175.*ETC4 

ETC6=(ETC5-18.42) 

ETC7=EXP(ETC6) 

ETAC=ETC7/P 

etarll=8.*3.14*((wnbl**2.))*4.08*(l.c— 12)*tw*sl 
ETAR1=1/ETAR11 

etar22=8.*3.14*((wnb2**2.))*4.08*(l.e-12)*tw*s2 

etar2=l/etar22 

ETA 1 1 =ETAC/ETAR 1 
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etal2=etac/etar2 

aapl=etall/sl 

aap2=etal2/s2 

aapxl=(3./4.)*(aapl)/p 

aapx2=(3./4.)*(aap2)/p 

am2=l.+(aapxl+aapx2) 

if(am2Je.0.)then 

am2=.79 

endif 

tin=p*l**2./kfb*(sl*pfdbl+s2*pfdb2) 

tn= exp(-(3.*tin)**0.5) 
ala =0.00005668 

akp=p/(ala*tw**4.)*(sl*pfbl+s2*pfb2) 

tao=akp*l 

anba=kfb*akp/(4.*ala*tw**3.) 
r=3.*tao**2./anba 
alm=3.*tao**2.*((0.75)+(l./anba)) 
am= sqrt(alm) 
cm= exp{-am) 

ad=3.*tao*(l.-em)+2.*am*(l.+em) 
ac=(r/(am**8.))*(48.-3.*tao*am**2.+36.*tao)/ad 
pal=24.-12.*am+am**3.+(am**3.-12.*am-24.)*cm 
pa2=-12.*r/(5.*am**4.)+17.*r/(70.*am**2.) 
ambar=sqrt(a 1 m/am2) 
write(*,*) alm,am2 
rbar=r/am2 
embar=cxp(— ambar) 

adbar=3.0*tao*(1.0-embar)+2.0*ambar*(1.0+embar) 

acbar=(rbar/(ambar**8.))*(48.-3.*tao*(ambar** 

* 2.0)+36.0*tao)/adbar 
palbar=24.0-12.0*ambar+ambar**3.0 

* +(ambar**3.0-12.0*ambar-24.0)*embar 
pa2bar=-12.0*tbar/(5.0*ambar**4.0)+ 

* 17.0 *ibar/(70.0*ambar* *2.0) 
tbulk=ac*pal+pa2-17./70. 
tbulkn=acbar*palbar+pa2bar-17.0/70.0 
write(21,109) 1.— *bulk,-4bulkn 
write(22,100) 1,-tbulkn 
write(23,1000)tw, p, 1, -tbulk, -tbulkn 

100 format(lx,f9.2,3x,el0.4) 

109 format(lx,f9.2,2(3x,el0.4)) 

303 continue 

202 continue 

101 continue 

1000 format (lx,f7.2, 3x,f6.2, 3x,f6.2, 3x,el0.4, 3x,el0.4) 
230 format (dx/tw’^x/p’^x/r^, ’tbulk’, 9x, , tbulkn’) 
stop 
end 
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GRAY GAS RESULTS FOR CO 


tw 

P 

1 

tbulk (LTE) 

tbulkn (NLTE) 

300.00 

0.10 

0.10 

0.1649E+02 

0.2468E+08 

300.00 

0.10 

0.50 

0.2430E+00 

-9185E+06 

300.00 

0.10 

1.00 

0.2427E+00 

0.8417E+04 

300.00 

0.10 

2.00 

0.2422E+00 

-.8730E+02 

300.00 

0.10 

5.00 

0.2385E+00 

0.1610E+00 

300.00 

0.10 

10.00 

0.2264E+00 

0.2435E+00 

300.00 

0.10 

20.00 

0.1885E+00 

0.2428E+00 

300.00 

0.10 

50.00 

0.8728E-01 

0.2423E400 

300.00 

0.10 

75.00 

0.4887E-01 

0.2416E+00 

300.00 

0.10 

100.00 

0.3041E-01 

0.2406E+00 

300.00 

1.00 

0.10 

0.2450E+00 

0.6133E+01 

300.00 

1.00 

o 

*0 

o 

0.2424E+00 

0.2428E+00 

300.00 

1.00 

1.00 

0.2411E+00 

0.2426E+00 

300.00 

1.00 

2.00 

0.2360E+00 

0.2420E+00 

300.00 

1.00 

5.00 

0.206 1E+00 

0.2378E+00 

300.00 

1.00 

10.00 

0.1429E+00 

0.2241E+00 

300.00 

1.00 

20.00 

0.6587E-01 

0.1837E+00 

300.00 

1.00 

50.00 

0.1530E-01 

0.8624E-01 

300.00 

1.00 

75.00 

0.7767E-02 

0.5082E-01 

300.00 

1.00 

100.00 

0.4886E-02 

0.3353E-01 

300.00 

5.00 

0.10 

0.2428E+00 

0.2428E+00 

300.00 

5.00 

0.50 

0.2407E+00 

0.2412E+00 

300.00 

5.00 

1.00 

0.2345E+00 

0.2363E+00 

300.00 

5.00 

2.00 

0.2131E+00 

0.2192E+00 

300.00 

5.00 

5.00 

0.1332E+00 

0.1484E+00 

300.00 

5.00 

10.00 

0.6092E-01 

0.7320E-01 

300.00 

5.00 

20.00 

0.2244E-01 

0.2788E-01 

300.00 

5.00 

50.00 

0.6654E-02 

0.8075E-02 

300.00 

5.00 

75.00 

0.4423E-02 

0.5221E-02 

300.00 

5.00 

100.00 

0.3510E-02 

0.4049E-02 

300.00 

10.00 

0.10 

0.2427E+00 

0.2427E+00 

300.00 

10.00 

0.50 

0.2386E+00 

0.2389E+00 

300.00 

10.00 

1.00 

0.2270E+00 

0.2280E+00 

300.00 

10.00 

2.00 

0.1914E+00 

0.1942E+00 

300.00 

10.00 

5.00 

0.9734E-01 

0.1014E+00 

300.00 

10.00 

10.00 

0.4095E-01 

0.4325E-01 

300.00 

10.00 

20.00 

0.1661E-01 

0.1753E-01 

300.00 

10.00 

50.00 

0.6857E-02 

0.7114E-02 

300.00 

10.00 

75.00 

0.5365E-02 

0.5517E-02 

300.00 

10.00 

100.00 

0.4721E-02 

0.4828E-02 

500.00 

0.10 

0.10 

0.2449E+00 

-.5491E+02 

500.00 

0.10 

0.50 

0.2423E+00 

0.2423E+00 

500.00 

0.10 

1.00 

0.2408E+00 

0.2428E+00 

500.00 

0.10 

2.00 

0.2349E+00 

0.2425E+00 
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500.00 0.10 5.00 0.2004E+00 0.2405E+00 

500.00 0.10 10.00 0.1320E+00 0.2337E+00 

500.00 0.10 20.00 0.5657E-01 0.2106E+00 

500.00 0.10 50.00 0.1190E-01 0.1272E+00 

500.00 0.10 75.00 0.5701E-02 0.8200B-01 

500.00 0.10 100.00 0.3400E-02 0J580E-01 

500.00 1.00 0.10 0.2427E+00 0.2427E+00 

500.00 1.00 050 0.2378E+00 0.2387E+00 

500.00 1.00 1.00 0.2241E+00 0.2270E+00 

500.00 1.00 2.00 0.1827E+00 0.1907E+00 

500.00 1.00 5.00 0.8245Er-01 0.9284E-01 

500.00 1.00 10.00 05007E-01 0.3523E-01 

500.00 1.00 20.00 0.9946E-02 0.1176E-01 

500.00 1.00 50.00 0.2786E-02 0.3220E-02 

500.00 1.00 75.00 0.1821E-02 0.2061E-02 

500.00 1.00 100.00 0.1429E-02 0.1591E-02 

500.00 5.00 0.10 0.2418E+00 0.2418E+00 

500.00 5.00 050 0.2204E+00 0.2205E+00 

500.00 5.00 1.00 0.1748E+00 0.1752E+00 

500.00 5.00 2.00 0.1004E+00 0.1009E+00 

500.00 5.00 5.00 05138E-01 0.3158E-01 

500.00 5.00 10.00 0.1311E-01 0.1318E-01 

500.00 5.00 20.00 0.6858E-O2 0.6888E-02 

500.00 5.00 50.00 0.4280E-02 0.4290E-02 

500.00 5.00 75.00 0.3836E-02 0.3842E-O2 

500.00 5.00 100.00 0.3632E-02 0.3636E-02 

500.00 10.00 0.10 0.2408E+00 0.2408E+00 

500.00 10.00 0.50 0.2033E+00 0.2033E+00 

500.00 10.00 1.00 0.142QE+00 0.1421E+00 

500.00 10.00 2.00 0.7209E-01 0.7219E-01 

500.00 10.00 5.00 0.2466E-01 0.2469E-01 

500.00 10.00 10.00 0.1320E-01 0.1321E-01 

500.00 10.00 20.00 0.9033E-02 0.9039E-02 

500.00 10.00 50.00 0.7122E-02 0.7124E-O2 

500.00 10.00 75.00 0.6760E-02 0.6762E-02 

500.00 10.00 100.00 0.6588E-02 0.6589E-02 

1000.00 0.10 0.10 0.2428E+00 0.2429E+00 

1000.00 0.10 0.50 0.2416E+00 0.2420E+00 

1000.00 0.10 1.00 0.2379E+00 0.2394E+00 

1000.00 0.10 2.00 0.2242E+00 0.2295E+00 

1000.00 0.10 5.00 0.1599E+00 0.1784E+00 

1000.00 0.10 10.00 0.7937E-01 0.9969E-01 

1000.00 0.10 20.00 0.2662E-01 0.3644E-01 

1000.00 0.10 50.00 0.4890E-02 0.6945E-02 

1000.00 0.10 75.00 0.2275E-O2 0.3244E-02 

1000.00 0.10 100.00 0.1331E-02 0.1898E-02 

1000.00 1.00 0.10 0.2424E+00 0.2424E+00 

1000.00 1.00 0.50 0.2309E+00 0.2309E+00 

1000.00 1.00 1.00 0.2014E+00 0.2015E+00 
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1000.00 

1.00 

2.00 

0.1340 E +00 

0.1342 E +00 

1000.00 

1.00 

5.00 

0.4134 E -01 

0.4148 E -01 

1000.00 

1.00 

10.00 

0.1265 E -01 

0.1271 E -01 

1000.00 

1.00 

20.00 

0 J 774 E - O 2 

0.3790 E -02 

1000.00 

1.00 

50.00 

0.9107 E -03 

0.9141 E -03 

1000.00 

1.00 

75.00 

0.5485 E -03 

0.5503 E -03 

1000.00 

1.00 

100.00 

0.4057 E -03 

0.4069 E -03 

1000.00 

5.00 

0.10 

0.2404 E +00 

0.2404 E +00 

1000.00 

5.00 

0.50 

0.1939 E +00 

0.1939 E +00 

1000.00 

5.00 

1.00 

0.1229 E +00 

0.1229 E +00 

1000.00 

5.00 

2.00 

05226 E -01 

0.5226 E -01 

1000.00 

5.00 

5.00 

0.1240 E -01 

0.1240 E -01 

1000.00 

5.00 

10.00 

0.4449 E -02 

0.4449 E -02 

1000.00 

5.00 

20.00 

0.1995 E -02 

0.1995 E -02 

1000.00 

5.00 

50.00 

0.1055 E -02 

0.1055 E -02 

1000.00 

5.00 

75.00 

0.9011 E -03 

0.901 2 E -03 

1000.00 

5.00 

100.00 

0.8321 E -03 

0.8321 E -03 

1000.00 

10.00 

0.10 

0.2380 E +00 

0.2380 E +00 

1000.00 

10.00 

0.50 

0.1632 E +00 

0.1632 E +00 

1000.00 

10.00 

1.00 

0.8596 E -01 

0.8597 E -01 

1000.00 

10.00 

2.00 

0.3290 E -01 

0.3290 E -01 

1000.00 

10.00 

5.00 

0.8690 E -02 

0.8691 E -02 

1000.00 

10.00 

10.00 

0.393 IE -02 

03931 E -02 

1000.00 

10.00 

20.00 

0.2340 E -02 

0.2340 E -02 

1000.00 

10.00 

50.00 

0.1653 E - O 2 

0.1653 E -02 

1000.00 

10.00 

75.00 

0.1528 E -02 

0.1528 E -02 

1000.00 

10.00 

100.00 

0.1469 E -02 

0.1469 E — 02 

2000.00 

0.10 

0.10 

0.2434 E +00 

0.2423 E +00 

2000.00 

0.10 

0.50 

0.2421 E +00 

0.2421 E +00 

2000.00 

0.10 

1.00 

0.2398 E +00 

0.2399 E +00 

2000.00 

0.10 

2.00 

0.2311 E +00 

0.2314 E +00 

2000.00 

0.10 

5.00 

0.1843 E +00 

0.1853 E +00 

2000.00 

0.10 

10.00 

0.1070 E +00 

0.1084 E +00 

2000.00 

0.10 

20.00 

0.4007 E -01 

0.4085 E -01 

2000.00 

0.10 

50.00 

0.7500 E -02 

0.7670 E -02 

2000.00 

0.10 

75.00 

0.3413 E -02 

0.3492 E -02 

2000.00 

0.10 

100.00 

0.1944 E -02 

0.1989 E -02 

2000.00 

1.00 

0.10 

0.2425 E +00 

0.2425 E +00 

2000.00 

1.00 

0.50 

0.2354 E +00 

0.2354 E +00 

2000.00 

1.00 

1.00 

0.2155 E +00 

0.2155 E +00 

2000.00 

1.00 

2.00 

0.1612 E +00 

0.1612 E +00 

2000.00 

1.00 

5.00 

0^865 Er -01 

0.5866 E -01 

2000.00 

1.00 

10.00 

0.1812 E -01 

0.1812 E -01 

2000.00 

1.00 

20.00 

0.4918 E -02 

0.4920 E -02 

2000.00 

1.00 

50.00 

0.8629 E -03 

0.8631 E -03 

2000.00 

1.00 

75.00 

0.4090 E -03 

0.4091 E -03 

2000.00 

1.00 

100.00 

0.245 IE -03 

0.245 IE -03 

2000.00 

5.00 

0.10 

0.2413 E +00 

0.2413 E +00 

2000.00 

5.00 

0.50 

0.2097 E +00 

0.2097 E +00 
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2000.00 5.00 1.00 0.1492E+00 0.1492E+00 

2000.00 5.00 2.00 0.6974E-01 0.6974E-01 

2000.00 5.00 5.00 0.1523E-01 0.1523E-01 

2000.00 5.00 10.00 0.4250E-02 0.4250E-02 

2000.00 5.00 20.00 0.1219E-02 ai219E-02 

2000.00 5.00 50.00 0.2810E-03 a2810E-03 

2000.00 5.00 75.00 0.1649E-03 0.1649E-03 

2000.00 5.00 100.00 0.1196E-03 0.1196E-03 

2000.00 10.00 0.10 0.2398E+00 0.2398E+00 

2000.00 10.00 0.50 0.1848E+00 0.1848E+00 

2000.00 10.00 1.00 0.1084E+00 0.1084E+00 

2000.00 10.00 2.00 0.4156E-01 0.4156E-01 

2000.00 10.00 5.00 0.8347E-02 0.8347E-02 

2000.00 10.00 10.00 0.2423E-02 0.2423E-02 

2000.00 10.00 20.00 0.7780E-03 0.7780E-03 

2000.00 10.00 50.00 0.2386E-03 0.2386B-03 

2000.00 10.00 75.00 0.1651E-03 0.1651Er-03 

2000.00 10.00 100.00 0.1346E-03 0.1346E-03 
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C Program to calculate LTE and NLTE bulk temp, under gray 
c gas assumption for NO 

IMPLICIT DOUBLE PRECISION (A-JI,0-Z) 
REALL.KFB 

DIMENSION U(10) f PRES(4),TEMP(4) 

OPEN (1 JTLEs’outla’) 

OPEN (Z^TLEs’nlp’) 

OPEN (3JTLE=’lp’) 

DATAU/0.1,0.5,1.,2.,5.,10.,20.,50.,75.,100./ 

DATA PRES/0.1,1.,5.,10./ 

DATA TEMP/300.400.,1000.,2000./ 

WRITE (1,11) 
write(2,13) 
write(2,*) 10,1 

13 formally, ’xV.’ty/tl 7, i4,x,’l’) 
writc(3,14) 

write(3,*) 10,1 

14 formatny.'x’yty, /, i4,x,’l’) 

DO 4 IT=1,4 
TW=TEMP(IT) 

DO 5 KK=1,4 
P=PRES(KK) 

DO 6 1=1,10 
L=U(I) 

TK1=TW**2. 

TK2=TW**0J 

TK3=TW/273. 

HCK=1. 439257246 
TS=300./TW 
WNB1=1876. 
wnb2=3724. 

C2B1=HCK*WNB1 
c2b2=hck*wnb2 
CCC=0.000053847734 
CCB1=CCC*(WNB1**4.) 
ccb2=ccc*(wnb2* *4.) 

TB1=C2B1/TW 

tb2=c2b2/tw 

TEB1=EXP(TB1) 

teb2=exp(tb2) 

C1B1=CCB1/C2B1 
clb2=ccb2/c2b2 
PFB1=C1B1/(TEB1-1.) 
pfb2=clb2/(teb2-l .) 

DEV1=TK1*((TEB1-1.)**2.) 

dev2=tkl*((teb2-l.)**2.) 

PFDB1=(CCB1 *TEB1)/DEV1 
pfdb2=(ccb2 * teb2)/dev2 
AKl=(TW/300.)**0.5 
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AK2=(300./TW)* *1.5 

AZ1=36.*AK1 

az2=36.*akl 

KFB<TW/179.16)*0.01378*(l£+8)*(l./(36.*23.889)) 

OMEG-1876. 

S1=132.*TS 

s2=2.2*ts 

ETCl=1.16*l.E-3*((15)**0.5)*(2700.**(4./3.)) 

ETC2=TW**(-l./3.)-0.015*((15.)**0.25) 

ETC3=ETC1 ’ETC2-18.42 
ETC4=EXP(ETC3) 

ETAOETC4/P 

ETCl=(14.)**(l./4.) 

ETC2=0.015 *ETC1 
ETC3=TW**(-l./3.) 

ETC4=ETC3-ETC2 

ETC5=175.*ETC4 

ETC6=(ETC5-18.42) 

ETC7=EXP(ETC6) 

ETAC=ETC7/P 

ETAR1 =8*3. 14*(1876. * *(2.))*4.08*(1 .E-12) *300. * 132. 

ETAR2=8*3.14*(3724.**(Z))*4.08*(1.E-12)*300.*2.2 

ETAR11=1/ETAR1 

etarl2=l/etar2 

ETA1 =ETAC/ETAR11 

eta2=etac/etarl2 

aapl=etal/sl 

aap2=eta2/s2 

aapx=(3./4.)*(aapl+aap2) 

am2=l.+(aapx) 

write(*,*)ain2 

tin=p*l * *2.0/kfb*(sl*pfdbl+s2*pfdb2) 
tn=exp(-{3.0*tm)**0.5) 
anexp=(l .0-tn)/(l .0+tn) 
tcm=l/kfb*(pfdbl *azl+pfdb2*az2) 
ala=0.00005668 

akp=p/(ala *tw* *4.0)*(sl *pfb 1 +s2*pfb2) 
tao=akp*l 

anba=kfb*akp/(4.0*ala *tw* *3.0) 

r=3.0*tao**2.0/anba 

aim=3.0*tao**2.0*(0.75+1.0/anba) 

am=sqrt(aim) 

em=exp(-am) 

ad=3.0*tao*(1.0-em)+2.0*am*(1.0+em) 

ac=r/am**8.0*(48.0—3.0*tao*am**2.0+36.0*tao)/ad 

pal=24.0-12.0*am+am**3.0+(am**3.0-12.0*am-24.0)* 

pa2=-12.0*r/(5.0*am**4.0)+17.0*r/(70.0*am**2.0) 

ambar=am/(sqrt(am2)) 

rbar=r/am2 


Os O 


embar=exp(-ambar) 

adbar=3.0*tao*(1.0-embar)+2.0*ambar*(1.0+embar) 

acbar=(ibar/(ambar**8.))*(48.-3.*tao*(ambar** 

• 2.0)+36.0*tao)/adbar 
palbar=24.0-12.0*ambar+ambar* *3.0 

• +(ambar**3.0— 12.0*ambar— 24.0)*embar 
pa2bar=-12.0*ibar/(5.0*ambar**4.0)+ 

• 17.0*ibar/(70.0*ambar**2.0) 
tbulk=ac*pal+pa 2-17.0^70.0 
tbulkn=acbar*palbar+pa2bar— 17.0/70.0 

WRITE (1,19) TW,P,L,-TBULK,-TBULKN 
WRITE (2,20) L,-TBULK,-tbulkn 
WRITE (3,21) L, -TBULKN 
6 CONTINUE 
5 CONTINUE 
4 CONTINUE 

FORMAT (IX J7.2^3XJf6.2), 2(3X310.4)) 

FORMAT (3X,F6.2,2(3X,E10.4)) 

21 FORMAT (3X,F6.2,3X,E10.4) 

11 FORMAT (4X, ’TW’,8X,’P’,6X,’L’,9X,’TBULK’,9X, ’TBULKN’) 
STOP 
END 
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GRAY GAS RESULTS FOR NO 


TW P L TBULK (LTE) TBULKN (NLTE) 


300.00 

0.10 

0.10 

05314E+01 

0.1035E+07 

300.00 

0.10 

0.50 

0 

1 

-3009E+01 

300.00 

0.10 

1.00 

0.2427E+00 

0.7631E-01 

300.00 

0.10 

2.00 

0.2423E+00 

0.2418E+00 

300.00 

0.10 

5.00 

0.2392E+00 

0.2427E+00 

300.00 

0.10 

10.00 

0.2290E+00 

0.2423E+00 

300.00 

0.10 

20.00 

0.1958E+00 

0.2406E+00 

300.00 

0.10 

50.00 

0.9796E-01 

0.2297E+00 

300.00 

0.10 

75.00 

05670E-01 

0.2155E+00 

300.00 

o.io : 

100.00 

0.3594E-01 

0.1986E+00 

300.00 

1.00 

0.10 

0.245 1B+00 

0.8474E+00 

300.00 

1.00 

050 

0.2425E+00 

0.2428E+00 

300.00 

1.00 

1.00 

0.2414E+00 

0.2424E+00 

300.00 

1.00 

2.00 

0.2372E+00 

0.241 2E+00 

300.00 

1.00 

5.00 

0.2116E+00 

0.2330E+00 

300.00 

1.00 

10.00 

0.1541E+00 

0.2084E+00 

300.00 

1.00 

20.00 

0.7624E-01 

0.1490E+00 

300.00 

1.00 

50.00 

0.1922E-01 

05481E-01 

300.00 

1.00 

75.00 

0.1015E-01 

0.3Q56E-01 

300.00 

1.00 

100.00 

0.6604E-02 

0.1994E-01 

300.00 

5.00 

0.10 

0.2427E+00 

0.2427E+00 

300.00 

5.00 

050 

0.2411E+00 

1 

3 

o 

300.00 

5.00 

1.00 

0.2359E+00 

0.2382E+00 

300.00 

5.00 

2.00 

0.2178E+00 

0.2255E+00 

300.00 

5.00 

5.00 

0.1458E+00 

0.1680E+00 

300.00 

5.00 

10.00 

0.7275E-01 

0.9412E-01 

300.00 

5.00 

20.00 

0.2946E-01 

0.4030E-01 

300.00 

5.00 

50.00 

0.1021E-01 

0.1335E-01 

300.00 

5.00 

75.00 

0.7327E-02 

0.9140E-02 

300.00 

5.00 

100.00 

0.6112E-02 

0.7360E-02 

300.00 

10.00 

0.10 

0.2427E+00 

0.2427E+00 

300.00 

10.00 

0.50 

0.2393E+00 

0.2400E+00 

300.00 

10.00 

1.00 

0.2296E+00 

0.2321E+00 

300.00 

10.00 

2.00 

0.1993E+00 

0.2066E+00 

300.00 

10.00 

5.00 

0.1119E+00 

0.1249E+00 

300.00 

10.00 

10.00 

05233E-01 

0.6099E-01 

300.00 

10.00 

20.00 

0.2402E-01 

0.2782E-01 

300.00 

10.00 

50.00 

i 0.1180E-01 

0.1295E-01 

300.00 

10.00 

75.00 

i 0.9820E-02 

0.1052E-01 

300.00 

10.00 

100.00 0.8945E-02 0.9440E-02 

500.00 

0.10 

0.10 

0.2349E+00 

0.7721E-01 

500.00 

0.10 

050 

0.2426E+00 

0.2427E+00 

500.00 

0.10 

1.00 

0.2417E+00 

0.2422E+00 

500.00 

0.10 

2.00 

0.2383E+00 

0.2403E+00 
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500.00 

0.10 

5.00 

0.2169E+00 

0.2277E+00 

500.00 

0.10 

10.00 

0.1646E+00 

0.1921E+00 

500.00 

0.10 

20.00 

0.8453E-01 

0.1189E+00 

500.00 

0.10 

50.00 

0.1996E-01 

0.3362E-01 

500.00 

0.10 

75.00 

0.9652E-02 

0.1676E-01 

500.00 

0.10 

100.00 

0.5741E-02 

0.1007E-01 

500.00 

1.00 

0.10 

0.2427E+00 

0.2428E+00 

500.00 

1.00 

0.50 

0.2400E+00 

0.2402E+00 

500.00 

1.00 

1.00 

0.2318E+00 

0.2326E+00 

500.00 

1.00 

2.00 

0.2045E+00 

0.2069E+00 

500.00 

1.00 

5.00 

0.1146E+00 

0.1193E+00 

500.00 

1.00 

10.00 

0.4719E-01 

0.5014E-01 

500.00 

1.00 

20.00 

0.1594E-01 

0.1707E-01 

500.00 

1.00 

50.00 

0.4164E-02 

0.4432E-02 

500.00 

1.00 

75.00 

0.2588E-02 

0.2734E-02 

500.00 

1.00 

100.00 

0.1958E-02 

0.2055E-02 

500.00 

5.00 

0.10 

0.2423E+00 

0.2423E+00 

500.00 

5.00 

0.50 

0.2295E+00 

0.2297E+00 

500.00 

5.00 

1.00 

0.1984E+00 

0.1990E+00 

500.00 

5.00 

2.00 

0.1327E+00 

0.1336E+00 

500.00 

5.00 

5.00 

0.4708E-01 

0.4765E-01 

500.00 

5.00 

10.00 

0.1920E-01 

0.1943E-01 

500.00 

5.00 

20.00 

0.9308E-02 

0.9395E-02 

500.00 

5.00 

50.00 

0.5302E-02 

0.5329E-02 

500.00 

5.00 

75.00 

0.4633E-02 

0.4650E-02 

500.00 

5.00 

100.00 

0.4330E-02 

0.4342E-02 

500.00 

10.00 

0.10 

0.241 7E+00 

0.2417E+00 

500.00 

10.00 

0.50 

0.2184E+00 

0.2186E+00 

500.00 

10.00 

1.00 

0.1716E+00 

0.1720E+00 

500.00 

10.00 

ZOO 

0.9975E-01 

0.1002E+00 

500.00 

10.00 

5.00 

0.3534E-01 

0.3553E-01 

500.00 

10.00 

10.00 

0.1773E-O1 

0.1781E-01 

500.00 

10.00 

20.00 

0.1132E-01 

0.1135E-01 

500.00 

10.00 

50.00 

0.8457E-02 

0.8468E-02 

500.00 

10.00 

75.00 

0.7929E-02 

0.7936E-02 

500.00 

10.00 

100.00 

0.7681E-02 

0.7686E-02 

1000.00 

0.10 

0.10 

0.2414E+00 

0.2433E+00 

1000.00 

0.10 

0.50 

0.2423E+00 

0.2423E+00 

1000.00 

0.10 

1.00 

0.2405E+00 

0.2406E+00 

1000.00 

0.10 

2.00 

0.2338E+00 

0.2340E+00 

1000.00 

0.10 

5.00 

0.1958E+00 

0.1965E+00 

1000.00 

0.10 

10.00 

0.1240E+00 

0.1252E+00 

1000.00 

0.10 

20.00 

0.5055E-01 

0.5134E-01 

1000.00 

0.10 

50.00 

0.1003E-01 

0.1022E-01 

1000.00 

0.10 

75.00 

0.465 2E-02 

0.4742E-02 

1000.00 

0.10 

100.00 

0.2691E-02 

0.2743E-02 

1000.00 

1.00 

0.10 

0.2426E+00 

0.2426E+00 

1000.00 

1.00 

0.50 

0.2372E+00 

0.2372E+00 

1000.00 

1.00 

1.00 

0.2216E+00 

0.2216E+00 
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1000.00 1.00 2.00 0.1759E+00 0.1760E+00 

1000.00 1.00 5.00 0.7306E-01 0.7316B-01 

1000.00 1.00 10.00 0.2443E-01 0.2447E-01 

1000.00 1.00 20.00 0.7130E-02 0.7143E-02 

1000.00 1.00 50.00 0.1475E-02 0.1478E-02 

1000.00 1.00 75.00 0.7930E-03 0.7944E-03 

1000.00 1.00 100.00 0.5342E-03 05350E-03 

1000.00 5.00 0.10 0.2417E+00 0.2417E+00 

1000.00 5.00 0.50 0.2171E+00 0.2171E+00 

1000.00 5.00 1.00 0.1658E+00 0.1658E+00 

1000.00 5.00 2.00 0.8704E-01 0.8706E-01 

1000.00 5.00 5.00 0.2214E-01 0.2215E-01 

1000.00 5.00 10.00 0.7161E-02 0.7163E-02 

1000.00 5.00 20.00 0.2628E-02 0.2628E-02 

1000.00 5.00 50.00 0.1026E-02 0.1026E-02 

1000.00 5.00 75.00 0.7898E-O3 0.7899E-03 

1000.00 5.00 100.00 0.6881E-03 0.6882E-03 

1000.00 10.00 0.10 0.2406E+00 0.2406E+00 

1000.00 10.00 0.50 0.1970E+00 0.1971E+00 

1000.00 10.00 1.00 0.1281E+00 0.1281E+00 

1000.00 10.00 2.00 0.5623E-01 0.5624E-01 

1000.00 10.00 5.00 0.1387E-01 0.1387E-01 

1000.00 10.00 10.00 0.5173E-02 0.5173E-02 

1000.00 10.00 20.00 0.2438E-02 0.2438E-02 

1000.00 10.00 50.00 0.1366E-02 0.1366E-02 

1000.00 10.00 75.00 0.1188E-02 0.1188E-02 

1000.00 10.00 100.00 0.1107E-02 0.1107E-02 

2000.00 0.10 0.10 0.2326E+00 0.2513E+00 

2000.00 0.10 0.50 0.2425E+00 0.2425E+00 

2000.00 0.10 1.00 0.2414E+00 0.2414E+00 

2000.00 0.10 2.00 0.2372E+00 0.2372E+00 

2000.00 0.10 5.00 0.2113E+00 0.2113E+00 

2000.00 0.10 10.00 0.1521E+00 0.1522E+00 

2000.00 0.10 20.00 0.7176E-01 0.7182E-01 

2000.00 0.10 50.00 0.1533E-01 0.1535E-01 

2000.00 0.10 75.00 0.7084E-02 0.7092E-02 

2000.00 0.10 100.00 0.4049E-02 0.4053E-02 

2000.00 1.00 0.10 0.2427E+00 0.2427E+00 

2000.00 1.00 0.50 0.2393E+00 0.2393E+00 

2000.00 1.00 1.00 0.2292E+00 0.2292E+00 

2000.00 1.00 2.00 0.1961E+00 0.1961E+00 

2000.00 1.00 5.00 0.9773E-O1 0.9774E-01 

2000.00 1.00 10.00 0.3518E-01 0.3519E-01 

2000.00 1.00 20.00 0.9987E-02 0.9988E-02 

2000.00 1.00 50.00 0.1717E-02 0.1717E-02 

2000.00 1.00 75.00 0.7896E-03 0.7897E-03 

2000.00 1.00 100.00 0.4586E-03 0.4586E-03 

2000.00 5.00 0.10 0.2421E+00 0.2421E+00 

2000.00 5.00 0.50 0.2260E+00 0.2260E+00 
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2000.00 

5.00 

1.00 

0.1872E+00 

0.1872E+00 

2000.00 

5.00 

2.00 

0.1114E+00 

0.1114E+00 

2000.00 

5.00 

5.00 

0.2945E-01 

0.2945E-01 

2000.00 

5.00 

10.00 

0.8342E-02 

0.8342E-02 

2000.00 

5.00 

20.00 

0.2274E-02 

0.2274E-02 

2000.00 

5.00 

50.00 

0.4399E-03 

0.4399E-03 

2000.00 

5.00 

75.00 

0.2271E-03 

0.2271E-03 

2000.00 

5.00 

100.00 

0.1476E-03 

0.1476E-03 

2000.00 

10.00 

0.10 

0.2414E+00 

0.2414E+00 

2000.00 

10.00 

0.50 

0.2115E+00 

0.2115E+00 

2000.00 

10.00 

1.00 

0.1527E+00 

0.1527E+00 

2000.00 

10.00 

2.00 

0.7285E-01 

0.7285E-01 

2000.00 

10.00 

5.00 

0.1612E-01 

0.1612E-01 

2000.00 

10.00 

10.00 

0.4504E-02 

0.4504E-02 

2000.00 

10.00 

20.00 

0.1289E-02 

0.1289E-02 

2000.00 

10.00 

50.00 

0.2947E-03 

0.2947E-03 

2000.00 

10.00 

75.00 

0.1720E-03 

0.1720E-03 

2000.00 

10.00 

100.00 

0.1242E-03 

0.1242E-03 
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c Program to calculate LTE and N1TE bulk temp, under gray 
c gas assumption for OH 

IMPLICIT DOUBLE PRECISION (A-H.O-Z) 
REALL.KFB 

dimension u(10),pres(4),temp(4) 

OPEN (1 JTLE-’outlla’) 

OPEN (2JTLE=’nlp’> 

OPEN (3,FILE= ’lp’) 

DATA U/0.1, 0.5,1., 2.4., 10., 20.,50.,75.,100./ 

DATA PRES/0.1,1.4.,10./ 

DATA TEMP/300.400.,1000.,2000./ 

WRITE (1,11) 
write(2,13) 
write(2,*) 10,1 

13 format(’37/xy/t7, ’tl7,M,*/l’) 

write(3,14) 
write(3,*) 10,1 

14 format(’2V, , *7, , t7, /,i4pt/ 1’) 

DO 4 IT=1,4 
TW=TEMP(IT) 

DO 5 KK=1,4 
P=PRES(KK) 

DO 6 1=1,10 
L=U(I) 

TK1=TW**2. 

TK2=TW**0.5 

TK3=TW/273. 

HCK=1.439257246 

TS=300./TW 

WNB1=3570. 

wnb2=6974. 

C2B1 =HCK* WNB 1 

c2b2=hck*wnb2 

CCC=0.000053847734 

CCB1=CCC*(WNB1**4.) 

ccb2=ccc*(wnb2**4.) 

TB1=C2B1/TW 
to 2=c2b2/tw 
TEB1=EXP(TB1) 
teb2=exp(to2) 

C1B1=CCB1/C2B1 
c Ib2=ccb2/c2b2 
PFB1=C1B1/(TEB1-1.) 
pfb2=clb2/(teb2-l.) 

DEVI =TK1 *((TEB1-1.)* *2.) 
dev2=tkl *((teb2-l .)* *2.) 

PFDB1=(CCB1 *TEB1)/DEV1 
pfdb2=(ccb2*teb2)/dev2 
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AKl=(TW/300.)**0.5 

AK2=(300./TW)**1.5 

AZ1=117.*AK1 

az2=117.*akl 

IF (TW.EQ.300.) THEN 

KFB =4879.71 

ELSEIF (TW.EQ.500.) THEN 
KFB=6993.13 

ELSEIF (TW.EQ.1000.) THEN 
KFB=11504.56 

ELSEIF (TW.EQ.2000.)THEN 

KFB=20276.33 

ENDIF 

OMEG=3570. 

S1=110.*TS 

s2=4.4*ts 

ETCl=1.16*l.E-3*((9.)**0.5)*(2700.**(4./3.)) 
ETC2=TW**(— 1./3.)-0.015*((9.)**0.25) 
ETC3=ETC1 *ETC2-18.42 
ETC4=EXP(ETC3) 

ETAC=ETC4/P 
c ETCl=(8.5)**(l./4.) 
c ETC2=0.015*ETC1 
c ETC3=TW**(-l./3.) 
c ETC4=ETC3-ETC2 
c ETC5=175.*ETC4 
c ETC6=(ETC5-18.42) 
c ETC7=EXP(ETC6) 
c ETAC=ETC7/P 

ETARl=8.*3.14*(3570.**(2.))*4.08*(l.E-12)*sl*tw 

ETAR11=1./ETAR1 

ETAR2=8.*3.14*(6974.**(2.))*4.08*(l.E-12)*s2*tw 

etarl2=l./ctar2 

ETA1 =ETAC/ETAR1 1 

eta2=ctac/ctarl2 

aapl=etal/sl 

aap2=cta2/s2 

aapx=(3./4.)*(aapl+aap2)/p 

am2=l.+aapx 

writc(* ( *)ain2 

if(am2.1c.0.)then 

am2=.97 

endif 

tin=p*l**2.0/kfb*(sl*pfdbl+s2*pfdb2) 
tn=cxp(-(3.0*tiii)* *0.5) 
ancxp=(l .0-tn)/(l .O+tn) 
ala-0.00005668 

akp=p/(ala*tw**4.0)*(sl*pfbl+s2*pfb2) 

tao=akp*l 
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anbaskfb *akp/(4.0*ala *tw* *3.0) 

r=3.0*tao**2.0/anba 

aim=3.0*tao**2.0*(0.75+1.0/anba) 

am=sqrt(aim) 

emsexp(-am) 

ad=3.0*tao*(1.0-em)+2.0*am*(1.0+em) 

ac=r/am**8.0*(48.0-3.0*tao*am**2.0+36.0*tao)/ad 

pal=24.0-12.0*am+am**3.0+(am**3.0-12.0*am-24.0)*em 

pa2=-12.0*r/(5.0*am* *4.0)+17.0*r/(70.0*am* *2.0) 

ambar=am/(sqrt(ain2)) 

rbar=r/am2 

embar=exp(-ambar) 

adbar=3.0*tao*(1.0-embar)+2.0*ambar*(1.0+embar) 

acbar=(rbar/(ambar* *8.))*(48.-3. *tao *(ambar* * 

* 2.0)+36.0*tao)/adbar 

palbar=24.0-12.0*ambar+ambar**3.0 

* +(ambar* *3.0-12.0*ambar-24.0)*embar 
pa2bar=-12.0*ibar/(5.0*ambar**4.0)+ 

* 17.0*ibar/(70.0*ambar**2.0) 
tbulk=ac*pal +pa2-17.0/70.0 
tbulkn=acbar*pa lbar+pa2bar-17.0/70.0 

WRITE (1,19) TW,P^-TBULK,-TBULKN 
WRITE (2,20) L,-TBULK,-tbulkn 
WRITE (3,21) L.-TBULKN 
6 CONTINUE 
5 CONTINUE 
4 CONTINUE 


write(*,*) ctac.etar.eta 

19 FORMAT (1X,F7.2,2(3X,F6.2),2(3X,E10.4)) 

20 FORMAT (3X,F6.2,2(3X,E10.4)) 

21 FORMAT (3X,F6.2,3X,E10.4) 

11 FORMAT (4X, TW\8X,T\6X,T\9X,TBULK\9X,TBULKN’) 
STOP 
END 
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GRAY GAS RESULTS FOR OH 


TW P L TBULK (LTE) TBULKN (NLTE) 


300.00 

0.10 

0.10 

-.1029E+13 

0.6671E+09 

300.00 

0.10 

o 

© 

0.1716E+07 

0.2668E+08 

300.00 

0.10 

1.00 

0.1699E+05 

0.6671E+07 

300.00 

0.10 

2.00 

0.9029E+03 

-.1026E+08 

300.00 

0.10 

5.00 

0.1639E+01 

0.1247E+05 

300.00 

0.10 

10.00 

0.2493E+00 

-.3966E+02 

300.00 

0.10 

20.00 

0.2427E+00 

0.1703E+00 

300.00 

0.10 

50.00 

0.2425E+00 

0.2442E+00 

300.00 

0.10 

75.00 

0.2421E+00 

0.2427E+00 

300.00 

0.10 

100.00 

0.2415E+00 

0.2428E+00 

300.00 

1.00 

0.10 

0.4289E+07 

-.5186E+09 

300.00 

1.00 

0.50 

0.5466E+03 

0.1937E+04 

300.00 

1.00 

1.00 

-.8436E+01 

-.2078E+02 

300.00 

1.00 

2.00 

0.1698E+00 

-.2315E+00 

300.00 

1.00 

5.00 

0.2425E+00 

0.2423E+00 

300.00 

1.00 

10.00 

0.2427E+00 

0.2427E+00 

300.00 

1.00 

20.00 

0.2423E+00 

0.2424E+00 

300.00 

1.00 

50.00 

0.2395E+00 

0.2399E+00 

300.00 

1.00 

75.00 

0.2354E+00 

0.2363E+00 

300.00 

1.00 

100.00 

0.2298E+00 

0.2314E+00 

300.00 

5.00 

0.10 

-.3067E+06 

-.1514E+07 

300.00 

5.00 

0.50 

0.3094E+01 

0.2776E+01 

300.00 

5.00 

1.00 

0.2549E+00 

0.1936E+00 

300.00 

5.00 

2.00 

0.2427E+00 

0.2430E+00 

300.00 

5.00 

5.00 

0.2427E+00 

0.2427E+00 

300.00 

5.00 

10.00 

0.2422E+00 

0.2422E+00 

300.00 

5.00 

20.00 

0.2401E+00 

0.2402E+00 

300.00 

5.00 

50.00 

0.2268E+00 

0.2269E+00 

300.00 

5.00 

75.00 

0.2096E+00 

0.2097E+00 

300.00 

5.00 

100.00 

0.1894E+00 

0.1897E+00 

300.00 

10.00 

0.10 

0.1707E+05 

0.1560E+05 

300.00 

10.00 

0.50 

0.1120E+00 

-.1176E+01 

300.00 

10.00 

1.00 

0.2437E+00 

0.2398E+00 

300.00 

10.00 

2.00 

0.2427E+00 

0.2428E+00 

300.00 

10.00 

5.00 

0.2425E+00 

0.2425E+00 

300.00 

10.00 

10.00 

0.2415E+00 

0.2415E+00 

300.00 

10.00 

20.00 

0.2375E+00 

0.2375E+00 

300.00 

10.00 

50.00 

0.2128E+00 

0.2129E+00 

300.00 

10.00 

75.00 

0.1844E+00 

0.1845E+00 

300.00 

10.00 

100.00 

0.1555E+00 

0.1556E+00 

500.00 

0.10 

0.10 

0.5585E+04 

— .4203E+05 

500.00 

0.10 

0.50 

0.1946E+00 

0.9841E+00 

500.00 

0.10 

1.00 

0.243 1E+00 

0.2345E+00 

500.00 

0.10 

2.00 

0.2427E+00 

0.2428E+00 
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500.00 

0.10 

5.00 0.2420E+00 0.2425E+00 


500.00 

0.10 

10.00 0.2396E+00 0.2413E+00 


500.00 

0.10 

20.00 0.2305E+00 0.2369E+00 


500.00 

0.10 

50.00 0.1819E+00 0.2099E+00 


500.00 

0.10 

75.00 0.1385E+00 0.1796E+00 


500.00 

0.10 100.00 0.1040E+00 0.1494E+00 


500.00 

1.00 

0.10 -.9847E+00 -.8765E+00 


500.00 

1.00 

030 0.2428E+00 0.2428E+00 


500.00 

1.00 

1.00 0.2425E+00 0.2425E+00 


500.00 

1.00 

2.00 0.2416E+00 0.2416E+00 


500.00 

1.00 

5.00 0.2350E+00 0.235 1E+00 


500.00 

1.00 

10.00 0.2142E+00 0.2145E+00 


500.00 

1.00 

20.00 0.1586E+00 0.1592E+00 


500.00 

1.00 

50.00 03712E-01 03761E-01 

— 

500.00 

1.00 

75.00 0.2964E-01 0.2994E-01 


500.00 

1.00 

100.00 0.1790E-01 0.1808E-01 


500.00 

5.00 

0.10 0.2399E+00 0.2429E+00 

— 

500.00 

5.00 

030 0.2425E+00 0.2425E+00 


500.00 

5.00 

1.00 0.2412E+00 0.2412E+00 


500.00 

5.00 

2.00 0.2365E+00 0.2365E+00 

— 

500.00 

5.00 

5.00 0.2084E+00 0.2084E+00 


500.00 

5.00 

10.00 0.1471E+00 0.1472E+00 


500.00 

5.00 

20.00 0.6905E-01 0.6908E-01 

— 

500.00 

5.00 

50.00 0.1596E-01 0.1597E-01 


500.00 

5.00 

75.00 0.7992E-02 0.7996E-02 


500.00 

5.00 

100.00 0.4953E-02 0.4955E-02 

— 

500.00 

10.00 

0.10 0.2434E+00 0.2437E+00 


500.00 

10.00 

0.50 0.2420E+00 0.2420E+00 


500.00 

10.00 

1.00 0.2397E+00 0.2397E+00 

— 

500.00 

10.00 

2.00 0.2306E+00 0.2306E+00 


500.00 

10.00 

5.00 0.1832E+00 0.1832E+00 


500.00 

10.00 

10.00 0.1075E+00 0.1075E+00 


500.00 

10.00 

20.00 0.4253E-01 0.4253E-01 


500.00 

10.00 

50.00 0.9684E-02 0.9685E-02 


500.00 

10.00 

75.00 03169E-02 03170E-02 


500.00 

10.00 

100.00 0.3433E-02 0.3433E-02 


1000.00 

0.10 

0.10 0.1860E+00 0.3166E+00 


1000.00 

0.10 

0.50 0.2426E+00 0.2427E+00 


1000.00 

0.10 

1.00 0.2420E+00 0.2421E+00 


1000.00 

0.10 

2.00 0.2395E+00 0.2397E+00 


1000.00 

0.10 

5.00 0.2233E+00 0.2246E+00 


1000.00 

0.10 

10.00 0.1799E+00 0.1833E+00 


1000.00 

0.10 

20.00 0.1014E+00 0.1058E+00 


1000.00 

0.10 

50.00 0.2525E-01 0.2695E-01 


1000.00 

0.10 

75.00 0.1202E-01 0.1288E-01 


1000.00 

0.10 

100.00 0.6972E-02 0.7484E-02 



1000.00 1.00 0.10 0.2428E+00 0.2428E+00 

1000.00 1.00 0.50 0.2407E+00 0.2407E+00 

1000.00 1.00 1.00 0.2346E+00 0.2347E+00 


150 



1000.00 

1.00 

2.00 

1000.00 

1.00 

5.00 

1000.00 

1.00 

10.00 

1000.00 

1.00 

20.00 

1000.00 

1.00 

50.00 

1000.00 

1.00 

75.00 

1000.00 

1.00 

100.00 

1000.00 

5.00 

0.10 

1000.00 

5.00 

0.50 

1000.00 

5.00 

1.00 

1000.00 

5.00 

2.00 

1000.00 

5.00 

5.00 

1000.00 

5.00 

10.00 

1000.00 

5.00 

20.00 

1000.00 

5.00 

50.00 

1000.00 

5.00 

75.00 

1000.00 

5.00 

100.00 

1000.00 

10.00 

0.10 

1000.00 

10.00 

0.50 

1000.00 

10.00 

1.00 

1000.00 

10.00 

ZOO 

1000.00 

10.00 

5.00 

1000.00 

10.00 

10.00 

1000.00 

10.00 

20.00 

1000.00 

10.00 

50.00 

1000.00 

10.00 

75.00 

1000.00 

10.00 

100.00 

2000.00 

0.10 

0.10 

2000.00 

0.10 

0.50 

2000.00 

0.10 

1.00 

2000.00 

0.10 

2.00 

2000.00 

0.10 

5.00 

2000.00 

0.10 

10.00 

2000.00 

0.10 

20.00 

2000.00 

0.10 

50.00 

2000.00 

0.10 

75.00 

2000.00 

0.10 

100.00 

2000.00 

1.00 

0.10 

2000.00 

1.00 

0.50 

2000.00 

1.00 

1.00 

2000.00 

1.00 

2.00 

2000.00 

1.00 

5.00 

2000.00 

1.00 

10.00 

2000.00 

1.00 

20.00 

2000.00 

1.00 

50.00 

2000.00 

1.00 

75.00 

2000.00 

1.00 

100.00 

2000.00 

5.00 

0.10 

2000.00 

5.00 

0.50 


0.2131E+00 0.2132E+00 
0.1304E+00 0.1305E+00 
0.5536E-01 0-5539E-01 
0.1727E-01 0.1729E-01 
03278E-02 0.3280E-02 
0.1607E-02 0.1609E-02 
0.9924E-03 0.9931E-03 
0.2424E+00 0.2424E+00 
0.2327E+00 0.2327E+00 
0.2071E+00 0.2071E+00 
0.1448E+00 0.1448E+00 
0.4844E-01 0.4844E-01 
0.1551E-01 0.1551E-01 
0.4862E-02 0.4862E-02 
0.1309E-02 0.1309E-02 
0.8419E-03 0.8419E-03 
0.6534E-03 0.6534E^03 
0.2420E+00 0.2420E+00 
0.2236E+00 0.2236E+00 
0.1814E+00 0.1814E+00 
0.1052E+00 0.1052E+00 
0.2911E-01 0.2911E-01 
0.9507E-02 0.9507E-02 
0.3438E-02 0.3438E-02 
0.1297E-02 0.1297E-02 
0.9844E-03 0.9844E-03 
0.8507E-03 0.8507E-03 
0.2411E+00 0.2444E+00 
0.2424E+00 0.2424E+00 
0.2411E+00 0.241 1E+00 
0.2361E+00 0.2362E+00 
0.2060E+00 0.2064E+00 
0.141 7E+00 0.1423E+00 
0.6306E-01 0.6354E-01 
0.1297E-01 0.1310E-01 
03966E-02 0.6025E-02 
0.3406E-02 0.3441E-02 
0.2427E+00 0.2427E+00 
0.2386E+00 0.2386E+00 
0.2267E+00 0.2267E+00 
0.1890E+00 0.1890E+00 
0.8756E-01 0.8757E-01 
0.3023E-01 0.3023E-01 
0.8471E-02 0.8472E-02 
0.1467E-02 0.1467E-02 
0.6819E-03 0.6819E-03 
0.400 2E-03 0.4003E-03 
0.2420E+00 0.2420E+00 
0.2230E+00 0.2230E+00 
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2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 


5.00 1.00 0.1793E+00 0.1793E+00 

5.00 2.00 0.1009E+00 0.1009E+00 

5.00 5.00 0.2535E-01 0.2535E-O1 

5.00 10.00 0.7157E-02 0.7157E-02 

5.00 20.00 0.1986E-02 0.1986E-02 

5.00 50.00 0.4087E-03 0.4087E-03 

5.00 75.00 0.2212E-03 0.2212E-03 

5.00 100.00 0.1500E-03 0.1500E-03 

10.00 0.10 0.241 1E+00 0.2411E+00 

10.00 0.50 0.2063E+00 0.2063E+00 

10.00 1.00 0.1425E+00 0.1425E+00 

10.00 2.00 0.6442E-01 0.6442E-01 

10.00 5.00 0.1390E-01 0.1390E-01 

10.00 10.00 0.3937E-02 03937E-02 

10.00 20.00 0.1173E-02 0.1173E-02 

10.00 50.00 0.2994E-03 0.2994E-03 

10.00 75.00 0.1873E-03 0.1873E-03 

10.00 100.00 0.1426E-03 0.1426E-03 



c This program solves for bulk temperature for CO_2 
c under gray gas assumption. The program calculates bulk 
c temperature under both LTE and NLTE condition, 
c ************************************************** 
implicit double precision (a-h,o-z) 
real ljcfb 

dimension u(10),press(4),temp(4) 
data u/0.1,0^, 1.0, 2.0,5.0,10.0,20.0, 50.0, 75., 100.0/ 
data press/0.1, L4-, 10.0/ 
data temp/300.,500., 1000.0,2000.0/ 
open(unit=12,file=’outl2.dat’) 
open(unit=ll ,file= ’nip *) 
open(10,file=’lp’) 
write(ll,13) 
write(ll,*) 10,1 

13 formally, ’xy/ty, ’tiy,i4,x,’l’) 
write(12,lll) 

write(10,14) 
write(10,*) 10,1 

14 format(’2y,’xy,’ty, /,i4,x,’l’) 
do 10 it=l,4 
Tw=temp(it) 

do 20 kk=l,4 
P=press(kk) 
do 30 i=l,10 
L=u(i) 

c * *********************************** tit**,*****,*** 

c Calculation of Plank’s function and it’s derivative 
c wnb Band Center 

c hek Constant 

c ccc=cl *c2 

c pfbi Plank’s Function for the ith band 

c pfdbi Derivative of Plank’s Function for ith band 
c * ********************* ******************* ********** 
tkl=tw**2 
tk2=tw**0.5 
tk3=tw/273.0 
hck= 1 .439257246 
ts=300.0/tw 

c * ************************************************** 

c Now we will consider the spectroscopic properties of co2 
c We have considered only three bands(15,4.3&2.7 microns) 

c ****** ******************************* ************** 
wnb 1=667.0 
wnb2=2347.0 
wnb3=3716.0 
c2bl=hck*wnbl 
c2b2=hck*wnb2 
c2b3=hck*wnb3 
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ccc*0.000053847734 

ccbl =ccc*(wnbl * *4) 

ccb2=ccc*(wnb2* *4) 

cd>3=ccc*(wnb3 * *4) 

tbl=c2bl/tw 

Ib2=c2b2/tw 

tb3=c2b3Aw 

tebl=exp(tbl) 

teb2*=exp(tb2) 

teb3=exp(tb3) 

clbl=ccbl/c2bl 

clb2=ccb2/c2b2 

clb3=ccb3/c2b3 

pfbl=clbl/(tebl-1.0) 

pfb2=clb2/(teb2-1.0) 

pfb3=clb3/(teb3-1.0) 

dev 1 =tkl*((tebl-l .0)* *2.0) 

dev2=tkl*((teb2-1.0)* *2.0) 

dev3 =tkl *((teb3-l .0)* *2.0) 
pfdb 1 =(ccbl *tebl)/dev 1 
pfdb 2 =(ccb 2 *teb 2 )/dev 2 
pfdb3=(ccb3 *teb3)/dev3 

c *,»*** ***•***•*•*•• 

c Band Model Correlatioiis(Tien & Lowder wide band model) 
c azi aoi is band width parameter 
c czsi=coi * *2 coi is correlation parameter 
c bsi=b* *2 is non dimensional quantity 
c omegi is wave number 

c si is integrated band intensity 


akl =(tw/300.0)* *0.5 
ak2=(300.0/tw) * * 1 .5 
azl=1.29*tk2 
az2=1.15*tk2 
az3=2.4*tk2 

kib=(1488.365171)*(tk3**1.23) 

omegl=1351.0 

omeg2=667.0 

omeg3=2396.0 

tx=-(hck/tw) 

txl=tx*omegl 

tx2=tx*omeg2 

tx3=tx*omeg3 

etxl=exp(txl) 

etx2=exp(tx2) 

etx3=exp(tx3) 

cl=1.0-etxl 

c2=1.0-etx2 
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c3=1.0-etx3 

brkt=tx * (omeg 1 +omeg3 ) 

phi2=(1.0-exp(brlrt))/(cl *c3) 

ts=300.0/tw 

sl=339.685*ts 

s2=2702.7*ts 

s3=71.497*ts*phi2 

ETCl=((363*(TW**(-l/3.)))+3.9) 

ETC2=EXP(ETCl)*(l.E-6) 

ETAOETC2/P 

ETRU=8.*3.14*(667.**(2.))*4.08*(1.E-12)*300. *339.685 
ETAR1=1./ETR11 

ETR12=8.*3.14*(2347.**(2.))*4.08*(1.E-12)*300. *2702.7 
ETAR2=1./ETR12 

ETR13=8.*3.14*(3716.**(2.))*4.08*(1.E-12)*300.*71.497*PHI2 

ETAR3=1./ETR13 

ETA1UETAC/ETAR1 

ETA12=ETAC/ETAR2 

ETA13=ETAC/ETAR3 

aapl=etall/sl 

aap2=etal2/s2 

aap3=etal3/s3 

aapxl=(3./4.)*(aapl)/p 

aapx2=(3./4.)*(aap2)/p 

aapx3=(3./4.) *(aap3)/p 

am2=l.+(aapxl+aapx2+aapx3) 

tin=p *1 * *2.0/kfb *(sl *pfdb 1 +s2*pfdb2+s3 *pfdb3) 

tn=cxp(-<3.0*tin)**05) 

anexp=(1.0-tn)/(1.0+tn) 

tcm=l/kfb*(pfdbl*azl+pfdb2*az2+pfdb3*az3) 

ala=0.00005668 

akp=p/(ala*tw**4.0)*(sl*pfbl+s2*pfb2+s3*pfb3) 

tao=akp*l 

anba=kfb*akp/(4.0*ala*tw**3.0) 

r=3.0*tao**2.0/anba 

aim=3.0*tao**2.0*(0.75+1.0/anba) 

am=sqrt(aim) 

em=exp(-am) 

ad=3.0*tao*(1.0-ent)+2.0*am*(1.0+em) 

ac=r/am**8.0*(48.0-3.0*tao*am**2.0+36.0*tao)/ad 

pa 1 =24.0-12.0*am+am * *3.0+(am* *3.0-12.0*am-24.0)*cm 

pa2=-12.0*r/(5.0*am**4.0)+17.0*r/(70.0*am**2.0) 

ambar=am/(sqrt(am2)) 

rbar=r/am2 

emba r=exp(-ambar) 

adbar=3.0*lao*(1.0— embar)+ZO*ambar*(l .0+embar) 
acbar=(rbar/(ambar* *8.))*(48.-3. *tao *(ambar** 

* 2.0)+36.0*tao)/adbar 
palbar=24.0— 12.0*ambar+ambar**3.0 
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• +(tmbar**3.0-12.0*ambar-24.0)*embir 

p»2btr=-12.0*ib«r/(5.0*«mb»r**4.0)+ 

• 17.0*rt»r/(70.0*imb*r ,, 2.0) 
tbulk=ac*pal+pa2-l 7.0/70.0 
tbulkn»acbir*palbir+pa2bar--17.0^70.0 
write(12^00)tw,p4,-tb«lk,-tbulkn 

write(11^02)l,-<bulk,-<biilkii 

writc(10^03)l,-tbulkn 

111 fonn»t(4x,'tw*3x, , p’,6x ( ’r > 9x,’tbulk’,9x/tbulkii’) 

30 continue 
20 continue 
10 continue 

202 forma t(lx,f9.2^(3x,el0.4)) 

203 format(lx,f9.2^x,el0.4) 

200 fonnat(8x,f7.2,3x,f6.2^x,f6.2,3x,el0.4^x,el0.4) 

stop 

end 
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GRAY GAS RESULTS FOR C0 2 


tw p ] tbulk (LTE) tbulkn (NLTE) 


300.00 

0.10 

0.10 

0.2428E+00 

0.2428E+00 

300.00 

0.10 

0.50 

0.2403E+00 

0.2412E+00 

300.00 

0.10 

1.00 

0.233 1E+00 

0.2364E+00 

300.00 

0.10 

2.00 

0.2087E+00 

0.2193E+00 

300.00 

0.10 

5.00 

0.1242E+00 

0.1492E+00 

300.00 

0.10 

10.00 

05514E-01 

0.7461E-01 

300.00 

0.10 

20.00 

0.2053E-01 

0.2913E-01 

300.00 

0.10 

50.00 

0.6530E-02 

0.8836E-02 

300.00 

0.10 

75.00 

0.4521E-02 

0.5834E-02 

300.00 

0.10 

100.00 

0.3687E-02 

0.4583E-02 

300.00 

1.00 

0.10 

0.2418E+00 

0.2418E+00 

300.00 

1.00 

0.50 

0.221 7E+00 

0.2218E+00 

300.00 

1.00 

1.00 

0.1810E+00 

0.1813E+00 

300.00 

1.00 

2.00 

0.1158E+00 

0.1161E+00 

300.00 

1.00 

5.00 

05112E-01 

05127E-01 

300.00 

1.00 

10.00 

0.3134E-01 

0.3140E-01 

300.00 

1.00 

20.00 

0.2355E-01 

0.235 7E-01 

300.00 

1.00 

50.00 

0.1982E-01 

0.1983E-01 

300.00 

1.00 

75.00 

0.1910E-01 

0.1910E-01 

300.00 

1.00 

100.00 

0.1875E-01 

0.1876E-01 

300.00 

5.00 

0.10 

0.2383E+00 

0.2383E+00 

300.00 

5.00 

050 

0.1854E+00 

0.1855E+00 

300.00 

5.00 

1.00 

0.1376E+00 

0.1377E+00 

300.00 

5.00 

2.00 

0.1014E+00 

0.1015E+00 

300.00 

5.00 

5.00 

0.7995E-01 

0.7995E-01 

300.00 

5.00 

10.00 

0.7389E-01 

0.7389E-01 

300.00 

5.00 

20.00 

0.7119E-01 

0.7120E-01 

300.00 

5.00 

50.00 

0.6970E-01 

0.6970E-01 

300.00 

5.00 

75.00 

0.6939E-01 

0.6939E-01 

300.00 

5.00 

100.00 

0.6923E-01 

0.6923E-01 

300.00 

10.00 

0.10 

0.2348E+00 

0.2348E+00 

300.00 

10.00 

0.50 

0.1755E+00 

0.1755E+00 

300.00 

10.00 

1.00 

0.1426E+00 

0.1426E+00 

300.00 

10.00 

2.00 

0.1234E+00 

0.1234E+00 

300.00 

10.00 

5.00 

0.1129E+00 

0.1129E+00 

300.00 

10.00 

10.00 

0.1099E+00 

0.1099E+00 

300.00 

10.00 

20.00 

0.1085E+00 

0.1085E+00 

300.00 

10.00 

50.00 

0.1077E+00 

0.1077E+00 

300.00 

10.00 

75.00 

0.1075E+00 

0.1075E+00 

300.00 

10.00 

100.00 

0.1074E+00 

0.1074E+00 

500.00 

0.10 

0.10 

0.2426E+00 

0.2427E+00 

500.00 

0.10 

050 

0.2369E+00 

0.2385E+00 

500.00 

0.10 

1.00 

0.2210E+00 

0.2265E+00 

500.00 

0.10 

2.00 

0.1751E+00 

0.1894E+00 
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500.00 0.10 5.00 0.7442E-01 0.9157E-01 

500.00 0.10 10.00 0.2671E-01 0.3500E-01 

500.00 0.10 20.00 0.9026E-02 0.1195E-01 

500.00 0.10 50.00 0.2722E-02 0.3442E-02 

500.00 0.10 75.00 0.1854E-02 0.2260E-02 

500.00 0.10 100.00 0.1497E-02 0.1773E-02 

500.00 1.00 0.10 0.2405E+00 0.2405E+00 

500.00 1.00 0.50 0.1980E+00 0.1981E+00 

500.00 1.00 1.00 0.1340E+00 0.1342E+00 

500.00 1.00 2.00 0.6695E-01 0.6711E-01 

500.00 1.00 5.00 0.2407E-01 0.2413E-01 

500.00 1.00 10.00 0.1378E-01 0.1380E-01 

500.00 1.00 20.00 0.9968E-02 0.9978E-02 

500.00 1.00 50.00 0.8174E-02 0.8178E-02 

500.00 1.00 75.00 0.7828E-02 0.7831E-02 

500.00 1.00 100.00 0.7663E-02 0.7665E-02 

500.00 5.00 0.10 0.2323E+00 0.2323E+00 

500.00 5.00 0.50 0.1391E+00 0.1391E+00 

500.00 5.00 1.00 0.8487E-01 0.8487E-01 

500.00 5.00 2.00 03473E-01 0.5474E-01 

500.00 5.00 5.00 0.3961E-01 0.3961Er-01 

500.00 5.00 10.00 03557E-01 0.3557E-01 

500.00 5.00 20.00 03378E-01 0.3378E-01 

500.00 5.00 50.00 03279E-01 0.3279E-01 

500.00 5.00 75.00 03258E-O1 0.3258E-01 

500.00 5.00 100.00 0.3248E-01 0J248E-01 

500.00 10.00 0.10 0.2246E+00 0.2246E+00 

500.00 10.00 030 0.1254E+00 0.1254E+00 

500.00 10.00 1.00 0.8858E-01 0.8858E-01 

500.00 10.00 2.00 0.7075Er-01 0.7075E-01 

500.00 10.00 5.00 0.6172E-01 0.6172E-01 

500.00 10.00 10.00 03914E-01 0-5914E-01 

500.00 10.00 20.00 05794E-01 03794E-01 

500.00 10.00 50.00 0-5726E-01 03726E-01 

500.00 10.00 75.00 03711E-01 03711E-01 

500.00 10.00 100.00 0.5703E-01 03703E-01 

1000.00 0.10 0.10 0.2423E+00 0.2424E+00 

1000.00 0.10 0.50 0.2290E+00 0.2319E+00 

1000.00 0.10 1.00 0.1957E+00 0.2046E+00 

1000.00 0.10 2.00 0.1247E+00 0.1399E+00 

1000.00 0.10 5.00 0.3655E-01 0.4510E-01 

1000.00 0.10 10.00 0.1113E-01 0.1411E-01 

1000.00 0.10 20.00 0.3381E-02 0.4294E-02 

1000.00 0.10 50.00 0.8649E-03 0.1068E-02 

1000.00 0.10 75.00 05404E-03 0.6509E-03 

1000.00 0.10 100.00 0.4109E-03 0.4844E-03 

1000.00 1.00 0.10 0.2371E+00 0.2372E+00 


1000.00 1.00 0.50 0.1552E+00 0.1553E+00 

1000.00 1.00 1.00 0.7859E-01 0.7874E-01 
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1000.00 

1.00 

2.00 

0.2981E-01 

0.2988E-01 

1000.00 

1.00 

5.00 

0.8251E-02 

0.8270E-02 

1000.00 

1.00 

10.00 

0.3977E-02 

0.3984E-02 

1000.00 

1.00 

20.00 

0.2516E-02 

0.2518E-02 

1000.00 

1.00 

50.00 

0.1867E-02 

0.1868E-02 

1000.00 

1.00 

75.00 

0.1746E-02 

0.1747E-02 

1000.00 

1.00 

100.00 

0.1689E-02 

0.1690E-02 

1000.00 

5.00 

0.10 

0.2182E+00 

0.2182E+00 

1000.00 

5.00 

030 

0.7878E-01 

0.7879E-01 

1000.00 

5.00 

1.00 

0.3574E-01 

0.3575E-01 

1000.00 

5.00 

2.00 

0.1824E-01 

0.1824E-01 

1000.00 

5.00 

5.00 

0.1078E-01 

0.1078E-01 

1000.00 

5.00 

10.00 

0.8946E-02 

0.8946E-02 

1000.00 

5.00 

20.00 

0.8161E-02 

0.8161E-02 

1000.00 

5.00 

50.00 

0.7733E-02 

0.7733E-02 

1000.00 

5.00 

75.00 

0.7643E-02 

0.7643E-02 

1000.00 

5.00 

100.00 

0.7598E-02 

0.7598E-02 

1000.00 

10.00 

0.10 

0.2008E+00 

0.2008E+00 

1000.00 

10.00 

0.50 

0.6196E-01 

0.6196E-01 

1000.00 

10.00 

1.00 

0.3354E-01 

0.3354E-01 

1000.00 

10.00 

2.00 

0.2230E-01 

0.2230E-01 

1000.00 

10.00 

5.00 

0.1713E-01 

0.1713E-01 

1000.00 

10.00 

10.00 

0.1573E-01 

0.1573E-01 

1000.00 

10.00 

20.00 

0.1509E-01 

0.1509E-01 

1000.00 

10.00 

50.00 

0.1472E-01 

0.1472E-01 

1000.00 

10.00 

75.00 

0.1464E-01 

0.1464E-01 

1000.00 

10.00 

100.00 

0.1460E-01 

0.1460E-01 

2000.00 

0.10 

0.10 

0.2424E+00 

0.2425E+00 

2000.00 

0.10 

0.50 

0.2330E+00 

0.2350E+00 

2000.00 

0.10 

1.00 

0.2077E+00 

0.2144E+00 

2000.00 

0.10 

2.00 

0.1450E+00 

0.1587E+00 

2000.00 

0.10 

5.00 

0.4695E-01 

0.5673E-01 

2000.00 

0.10 

10.00 

0.1395E-01 

0.1747E-01 

2000.00 

0.10 

20.00 

0.3767E-02 

0.4768E-02 

2000.00 

0.10 

50.00 

0.6748E-03 

0.855 IE-03 

2000.00 

0.10 

75.00 

0.3264E-03 

0.4125E-03 

2000.00 

0.10 

100.00 

0.1995E-03 

0.2512E-03 

2000.00 

1.00 

0.10 

0.2388E+00 

0.2388E+00 

2000.00 

1.00 

0.50 

0.1713E+00 

0.1715E+00 

2000.00 

1.00 

1.00 

0.9190E-01 

0.9205E-01 

2000.00 

1.00 

2.00 

0.3301E-01 

0.3308E-01 

2000.00 

1.00 

5.00 

0.6569E-02 

0.6586E-02 

2000.00 

1.00 

10.00 

0.1974E-02 

0.1980E-02 

2000.00 

1.00 

20.00 

0.6813E-03 

0.6829E-03 

2000.00 

1.00 

50.00 

0.2422E-03 

0.2426E-03 

2000.00 

1.00 

75.00 

0.1794E-03 

0.1796E-03 

2000.00 

1.00 

100.00 

0.1527E-03 

0.1529E-03 

2000.00 

5.00 

0.10 

0.2241E+00 

0.2241E+00 

2000.00 

5.00 

0.50 

0.8214E-01 

0.8215E-01 
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2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 


5.00 1.00 0.2956E-01 0.2957E-01 

5.00 2.00 0.9516E-02 0.9516E-02 

5.00 5.00 0.2492E-02 0.2493E-O2 

5.00 10.00 0.1196E-02 0.1196E-02 

5.00 20.00 0.7565E-O3 0.7566E-43 

5.00 50.00 05606E-03 03606E-03 

5.00 75.00 05241E-03 0.5241E-03 

5.00 100.00 0.5067E-03 0.5067E-03 

10.00 0.10 0.2086E+00 0.2086E+00 

10.00 0.50 0.5266E-01 05266E-01 

10.00 1.00 0.1826E-01 0.1826E-01 

10.00 2.00 0.6567E-02 0.6567E-02 

10.00 5.00 0.2366E-02 0.2367E-02 

10.00 10.00 0.1501E-02 0.1501E-02 

10.00 20.00 0.1173E-02 0.1173E-02 

10.00 50.00 0.1010E-02 0.1010E-02 

10.00 75.00 0.9770E-03 0.9770E-03 

10.00 100.00 0.9611E-03 0.9611Er-03 
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C Program to calculate LTE and NLTE bulk temp, under gray 
c gas assumption for H_20 

implicit double precision (a-h,o-z) 
real l,kfb 

dimension u(10),press(4),Temp(4) 

data uAl, 0^,1.0,2.0^.0,10.0,20.040.0, 75., 100.0/ 

data press/ 0 . 1 , 1 . 04 ., 10 . 0 / 

data temp/300.400.,1000.0,2000.0/ 

open(unit=25, files’nlp’) 

open(unit=26, files’lp*) 

open(unit=27, file=’out27.dat’) 

write(27,230) 

write(25,13) 

write(2 5 *) 10,1 

13 fonnat('3y,’x7,’ty, ’tiy,i4,x,’l’) 
write(26,14) 

write(26,*) 10,1 

14 forma^^y/xy/ty, /,i4,x,’l’) 
do 101 it=l,4 

tw=temp(it) 
do 202 kk=l,4 
p=press(kk) 
do 303 i=l,10 
l=u(i) 

c 

c Calculation of Plank’s Function and it’s derivative 
c wnb Band Center 
c hek Constant 

c ccc cl*c2 (eig_k_cm**3/sec) 
c pfdbi Plank’s Function’s derivative for ith band 

c 

tkl=tw**2 
tk2=tw**0.5 
tk3=tw/273.0 
hck= 1.439257246 
ts=300.0/tw 

c 

c Spectroscopic Properties of H20 

c Five Bands of H20 are cosidered(I.R,6.3, 2.7, 1.87, 1.38 microns) 
c wnbi Band Center (1/cm) 

c 

wnbi =500. 

wnb2=1600. 

wnb3=3750. 

wnb4=5350. 

wnb5=7250. 

c2bl=hck*wnbl 

c2b2=hck*wnb2 

c2b3=hck*wnb3 
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c2b4=hck*wnb4 

c2b5=hck*wnb5 

ccc=0.000053847734 

ccbl»ccc*(wnbl • *4) 

ccto2=ccc*(wnb2* *4) 

cd>3«coc*(wnb3* *4) 

cd>4=cec*(wnb4**4) 

ccb5=ccc*(wnb5**4) 

tbl=c2bl/tw 

tb 2 =c 2 b 2 /tw 

tb3=c2b3/tw 

tb4=c2b4/tw 

tb5=c2b5/tw 

tebl= exp(tbl) 

tcb2= cxp(tb2) 

teb3= cxp(tb3) 

tcb4= cxp(tb4) 

teb5= exp(tb5) 

clbl=ccbl/c2bl 

clb2=ccb2/c2b2 

clb3=ccb3/c2b3 

clb4=ccb4/c2b4 

clb5 =ccb5/c2b5 

pfbl=clbl/(tebl— 1.0) 

pfb2=clb2/(teb2-1.0) 

pfb3=clb3/(teb3-1.0) 

pfb4=clb4/(teb4— 1 .0) 

pfb5=clb5/(teb5-1.0) 

devl =tkl *((teb 1-1.0)* *2.0) 

dcv2=tkl *((teb2-1.0)**2.0) 

dev3=tkl *((teb3-l .0)* *2.0) 

dev4=tkl *((teb4-1.0)* *2.0) 

dcv5=tkl *((teb5-l .0)* *2.0) 

pfdbl=(ccbl*tebl)/devl 
pfdb2=(ccb2*teb2)/dev2 
pfdb3=(ccb3*teb3)/dev3 
pfdb4=(ccb4*teb4)/dev4 
pfdb5=(ccb5 *teb5)/dcv5 


c Band Model Correlations (Tien & Lowder Wide Band Model) 

c azi aoi (1/cm) 

c czsi coi**2 (1/atm-cm) 

c bsi b**2 (Nondimensional) 

c omegi Wave Number (1/cm) 

c si Integrated Band Intensity (1/atm cm* *2) 


akl<tw/300.)**0.5 

ak2=(300./tw)**l3 

azl=49.4*akl 
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az2=90.1*akl 

az3=112.6*akl 

az4=79.7*akl 

az5=79.7*akl 


c dkf Thermal Conductivity (Eig/cm-sec-k) 


kfb=(1488.365171)*(tk3**1.23) 

omeg 1=3652. 

omeg 2=1595. 

omeg3=3756. 

tx=-(hckAw) 

txl=tx*omegl 

tx2=tx*omeg2 

tx3=tx*omeg3 

etxl= exp(txl) 

etx2= exp(tx2) 

etx3= exp(tx3) 

cl=1.0-etxl 

c2=1.0-etx2 

c3=1.0-etx3 

brkt=tx*(omcgl+omeg3) 

ph 1 01 =( 1 .0-exp(brkt))/c 1 *c2*c3 

tsl=(tw/100.)**(-0.5) 

phi7=exp(-l 7.6 * ts 1 ) 

col=771.*ak2*phi7 

co2=3.35*ak2 

co3=1.52*ak2 

co4=0.276 *ak2*ph 1 01 

co5=0.230*ak2*phl01 

sl=azl*col 

s2=az2*co2 

s3=az3*co3 

s4=az4*co4 

s5=az5*co5 

ETCl=((36.5*(TW**(-l/3.)))+3.9) 
ETC2=EXP(ETC1) *(l.E-6) 

ETAC=ETC2/P 

ETRll=8.*3.14*(500.**(2.))*4.08*(l.E-12)*sl*tw 

ETARU1./ETRU 

ETR1 2=8. *3. 1 4 *(1 600. * *(2. )) *4.08 *(1 .E-12) *s2 * tw 
ETAR2=1./ETR12 

ETR13=8.*3.14*(3750.**(2.))*4.08*(l.E-12)*s3*tw 

ETAR3=1./ETR13 

ETR14=8.*3.14*(5350.**(2.))*4.08*(l.E-12)*s4*tw 

ETAR4=1./ETR14 

ETR15=8. *3. 14*(7250. * *(2.))*4.08*(1 .E-12) *s5 *tw 

ETAR5=1./ETR15 

ETA 1 1 =ETAC/ETAR 1 
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ETA12=ETAC/ETAR2 
ETA13*ETAC/ETAR3 
ETA1 4=ETAC/ETAR4 
ETA15 =ETAC/ETAR5 
aapl=etall/sl 
aap2=etal2/s2 
aap3=etal3/&3 
aap4=cUl4/s4 
aap5=etal5/s5 
aap6=ctal6/s6 
aapxl<3./4.)*(aapl)/p 
aapx2=(3./4.)*(aap2)/p 
aapx3=(3./4.)*(aap3)/p 
aapx4=(3./4.)*(aap4)/p 
aapx5=(3./4.)*(aap5)/p 

am2=l.+(aapxl+aapx2+aapx3+aapx4+aapx5) 

tin=p*l**2./kfb*(sl*pfdbl+s2*pfdb2+s3*pfdb3+s4*pfdb4+s5*pfdb5) 

tn= exp(-(3.*tin)**0.5) 
a la =0. 00005668 

akp=p/(ala*tw**4.)*(sl*plbl+s2*pfb2+s3*pfb3+s4*pfb4+s5*pfl»5) 

tao=akp*l 

anba =kfb *akp/(4. *ala*tw* *3.) 
r=3.*tao**2./anba 
alm=3.*tao**2.*(0.75+l./anba) 
am= sqit(alm) 
em= exp(-am) 

ad=3.*tao*(l.-em)+2.*am*(l.+em) 

ac=r/am**8.*(48.-3.*tao*am**2.+36.*tao)/ad 

pal=24.-12.*am+am**3.+(am**3.-12.*am-24.)*em 

pa2=-12.*r/(5.*am**4.)+17.*r/(70.*ain**2.) 

ambar=am/(sqrt(am2)) 

rbar=r/am2 

embar=cxp(-ainbar) 

adbar=3.0*tao*(1.0-embar)+2.0*ambar*(1.0+embar) 

acbar=(rbar/(ambar**8.))*(48.-3.*tao*(ambar** 

* 2.0)+36.0*tao)/adbar 
palbar=24.0-12.0*ambar+ambar* *3.0 

* +(ambar* *3.0-12.0*ambar-24.0)*embar 
pa2bar=-12.0*ibar/(5.0*ambar* *4.0)+ 

* 1 7.0 *ibar/(70.0 *ambar* * 2.0) 
tbulk=ac*pal+pa2— 17./70. 
tbulkn=acbar*palbar+pa2bar— 17.0/70.0 
writc(25,100) l,-tbulk,-tbulkn 
write(26,104) l,-d)ulkn 

write(27, 1 000)tw, p, 1, -tbulk, -tbulkn 
100 format(lx,©.2,2(3x,el0.4)) 

104 format (Ix,f9.2,3x,el0.4) 

303 continue 
202 continue 
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101 continue 

1000 format (lx,f7.2, 3x,f6.2, 3x,f6.2, 3x,el0.4, 3x,el0.4) 
230 format (4x 1 , tw , I 8x,’p , ,6x,T,9x ) ’tbulk’,9x, , tbulkn’) 
stop 
end 
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GRAY GAS RESULTS FOR H 2 0 


tw p 1 (bulk (LTE) tbulkn (NLTB) 


300.00 

0.10 

0.10 0.2411E+00 -6838E+00 


300.00 

0.10 

0.50 0.2425 E+00 0.2428E+00 


300.00 

0.10 

1.00 0.2416E+00 0.2425E+00 


300.00 

0.10 

2.00 0.2378E+00 0.2414E+00 


300.00 

0.10 

5.00 0.2145E+00 0.2343E+00 


300.00 

0.10 

10.00 0.1596E+00 0.2122E+00 


300.00 

0.10 

20.00 0.8027E-01 0.1554E+00 


300.00 

0.10 

50.00 0.193 IE-01 0.5723E-01 


300.00 

0.10 

75.00 0.9650E-02 0.3096E-01 


300.00 

0.10 

100.00 03941E-02 0.1953E-01 


300.00 

1.00 

0.10 0.2427E+00 0.2427E+00 


300.00 

1.00 

030 0.2397E+00 0.2398E+00 


300.00 

1.00 

1.00 0.2308E+00 0.2311E+00 


300.00 

1.00 

2.00 0.2019E+00 0.2028E+00 


300.00 

1.00 

5.00 0.1124E+00 0.1139E+00 

W 

300.00 

1.00 

10.00 0.4836E-01 0.4932E-01 


300.00 

1.00 

20.00 0.1849E-01 0.1888E-01 


300.00 

1.00 

50.00 0.6534E-02 0.6638E-02 

— 

300.00 

1.00 

75.00 0.4775E-02 0.4835E-02 


300.00 

1.00 

100.00 0.4032E-02 0.4074E-02 


300.00 

5.00 

0.10 0.2422E+00 0.2422E+00 

— 

300.00 

5.00 

030 0.2286E+00 0.2286E+00 


300.00 

5.00 

1.00 0.1971E+00 0.1971E+00 


300.00 

5.00 

2.00 0.1344E+00 0.1344E+00 


300.00 

5.00 

5.00 03559E-01 03563E-01 


300.00 

5.00 

10.00 0.2880E-01 0.2882E-01 


300.00 

5.00 

20.00 0.1846E-01 0.1847E-01 


300.00 

5.00 

50.00 0.1379E-01 0.1380E-01 


300.00 

5.00 

75.00 0.1294E-01 0.1294E-01 


300.00 

5.00 

100.00 0.1254E-01 0.1254E-01 

— 


300.00 10.00 0.10 0.2416E+00 0.2416E+00 

300.00 10.00 0.50 0.2176E+00 0.2176E+00 

300.00 10.00 1.00 0.1730E+00 0.1730E+00 

300.00 10.00 2.00 0.1087E+00 0.1087E+00 

300.00 10.00 5.00 03097E-01 0.5097Er-01 

300.00 10.00 10.00 0.3390E-01 0.3390E^01 

300.00 10.00 20.00 0.2708E^01 0.2708E-01 

300.00 10.00 50.00 0.2373Er-01 0.2373E-01 

300.00 10.00 75.00 0.2307E-01 0.2307E-01 

300.00 10.00 100.00 0.2275E-01 0.2275E-01 

500.00 0.10 0.10 0.2428E+00 0.2440E+00 

500.00 0.10 030 0.2415E+00 0.2424E+00 

500.00 0.10 1.00 0.2374E+00 0.2409E+00 

500.00 0.10 2.00 0.2225E+00 0.2353E+00 
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500.00 

0.10 

5.00 

500.00 

0.10 

10.00 

500.00 

0.10 

20.00 

500.00 

0.10 

50.00 

500.00 

0.10 

75.00 

500.00 

0.10 

100.00 

500.00 

1.00 

0.10 

500.00 

1.00 

0.50 

500.00 

1.00 

1.00 

500.00 

1.00 

2.00 

500.00 

1.00 

5.00 

500.00 

1.00 

10.00 

500.00 

1.00 

20.00 

500.00 

1.00 

50.00 

500.00 

1.00 

75.00 

500.00 

1.00 

100.00 

500.00 

5.00 

0.10 

500.00 

5.00 

0.50 

500.00 

5.00 

1.00 

500.00 

5.00 

2.00 

500.00 

5.00 

5.00 

500.00 

5.00 

10.00 

500.00 

5.00 

20.00 

500.00 

5.00 

50.00 

500.00 

5.00 

75.00 

500.00 

5.00 

100.00 

500.00 

10.00 

0.10 

500.00 

10.00 

0.50 

500.00 

10.00 

1.00 

500.00 

10.00 

2.00 

500.00 

10.00 

5.00 

500.00 

10.00 

10.00 

500.00 

10.00 

20.00 

500.00 

10.00 

50.00 

500.00 

10.00 

75.00 

500.00 

10.00 

100.00 

1000.00 

0.10 

0.10 

1000.00 

0.10 

0.50 

1000.00 

0.10 

1.00 

1000.00 

0.10 

2.00 

1000.00 

0.10 

5.00 

1000.00 

0.10 

10.00 

1000.00 

0.10 

20.00 

1000.00 

0.10 

50.00 

1000.00 

0.10 

75.00 

1000.00 

0.10 

100.00 

1000.00 

1.00 

0.10 

1000.00 

1.00 

0.50 

1000.00 

1.00 

1.00 


0.1555E+00 0.2029E+00 
0.7613E-01 0.1373E+00 
0.2607E-01 0.6176E-01 
05344E-02 0.1431E-01 
0.2731E-02 0.7301E-02 
0.1750E-02 0.4598E-02 
0.2423E+00 0.2423E+00 
0.2299E+00 0.2302E+00 
0.1992E+00 0.1999E+00 
0.1325E+00 0.1336E+00 
0.4434E-01 0.4499E-01 
0.1623E-01 0.1648E-01 
0.6705E-02 0.6794E-02 
0.3095E-02 0.3120E-02 
0.2531E-02 0.2547E-02 
0.2284E-02 0.2294E-02 
0.2402E+00 0.2402E+00 
0.1937E+00 0.1937E+00 
0.1279E+00 0.1280E+00 
0.6349E-01 0.6352E-01 
0.2389E-01 0.2390E-01 
0.1439E-01 0.1440E-01 
0.1082E-01 0.1082E-01 
0.9109E-02 0.9110E-02 
0.8775E-02 0.8776E-02 
0.8615E-02 0.8615E-02 
0.2377E+00 0.2377E+00 
0.1676E+00 0.1676E+00 
0.1005E+00 0.1005E+00 
0.5236E-01 0.5236E-01 
0.2684E-01 0.2684E-01 
0.205 2E-01 0.2052E-01 
0.1794E-01 0.1794E-01 
0.1659E-01 0.1659E-01 
0.1632E-01 0.1632E-01 
0.1618E-01 0.1618E-01 
0.2428E+00 0.2432E+00 
0.2407E+00 0.2419E+00 
0.2343E+00 0.2393E+00 
0.2120E+00 0.2291E+00 
0.1275E+00 0.1770E+00 
0.5309E-01 0.9832E-01 
0.1624E-O1 0.3602E-01 
0.2962E-02 0.7045E-02 
0.1409E-02 0.3364E-02 
0.8444E-03 0.2009E-02 
0.2420E+00 0.2420E+00 
0.2227E+00 0.2230E+00 
0.1789E+00 0.1796E+00 
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1000.00 1.00 2.00 0.1013E+00 0.1022B+00 

1000.00 1.00 5.00 0.2663E-01 0.2696E-01 

1000.00 1.00 10.00 0.8157E-02 0.8266E-02 

1000.00 1.00 20.00 0.2648E-02 0.2682E-02 

1000.00 1.00 50.00 0.8082E-03 a8164E-03 

1000.00 1.00 75.00 0-5571E-03 0J618E-O3 

1000.00 1.00 100.00 0.4535E-03 0.4566E-03 

1000.00 5.00 0.10 0.2385E+00 0.2385E+00 

1000.00 5.00 0.50 0.1697E+00 0.1697B+00 

1000.00 5.00 1.00 0.9245Er-01 0.9248E-01 

1000.00 5.00 2.00 03581E-01 0.3582E-O1 

1000.00 5.00 5.00 0.9158E-02 0.9162E-02 

1000.00 5.00 10.00 0J939E-02 0.3941E-02 

1000.00 5.00 20.00 0.2225E-02 0.2225E-02 

1000.00 5.00 50.00 0.1501E-02 0.1501E-02 

1000.00 5.00 75.00 0.1371E-02 0.1371E-02 

1000.00 5.00 100.00 0.1311E-02 0.1311E-02 

1000.00 10.00 0.10 0.2345E+00 0.2345E+00 

1000.00 10.00 0.50 0.1339E+00 0.1339E+00 

1000.00 10.00 1.00 0.6233E-01 0.6233E-01 

1000.00 10.00 2.00 0.2382E-01 0.2382E-01 

1000.00 10.00 5.00 0.7691E-02 0.7692E-02 

1000.00 10.00 10.00 0.4375E-02 0.4375E-02 

1000.00 10.00 20.00 0.3171E-02 03171E-02 

1000.00 10.00 50.00 0.2600E-02 0.2600E4)2 

1000.00 10.00 75.00 0.2489E-O2 0.2489E-02 

1000.00 10.00 100.00 0.2436E-02 0.2436E-02 

2000.00 0.10 0.10 0.2428E+00 0.2434E+00 

2000.00 0.10 0.50 0.2411E+00 0.2421E+00 

2000.00 0.10 1.00 0.2358E+00 0.2398E+00 

2000.00 0.10 2.00 0.2169E+00 0.2311E+00 

2000.00 0.10 5.00 0.1390E+00 0.1843E+00 

2000.00 0.10 10.00 0.6106E-01 0.1071E+00 

2000.00 0.10 20.00 0.1892E-01 0.4021E-01 

2000.00 0.10 50.00 0.3297E-O2 0.7603E-02 

2000.00 0.10 75.00 0.1498E-02 0.3488E-02 

2000.00 0.10 100.00 0.8576E-03 0.2003E-02 

2000.00 1.00 0.10 0.2421E+00 0.2421E+00 

2000.00 1.00 0.50 0.2260E+00 0.2262E+00 

2000.00 1.00 1.00 0.1871E+00 0.1877E+00 

2000.00 1.00 2.00 0.1112E+00 0.1120E+00 

2000.00 1.00 5.00 0.2936E-01 0.2970E-01 

2000.00 1.00 10.00 0.8305E-02 0.8413E-02 

2000.00 1.00 20.00 0.2259E-02 0.2289E-02 

2000.00 1.00 50.00 0.4344E-03 0.4400E-03 

2000.00 1.00 75.00 0.2232E-03 0.2259E-03 

2000.00 1.00 100.00 0.1444E-03 0.146 2E-03 

2000.00 5.00 0.10 0.2393E+00 0.2393E+00 

2000.00 5.00 0.50 0.1774E+00 0.1774E+00 
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2000.00 

5.00 

1.00 

2000.00 

5.00 

2.00 

2000.00 

5.00 

5.00 

2000.00 

5.00 

10.00 

2000.00 

5.00 

20.00 

2000.00 

5.00 

50.00 

2000.00 

5.00 

75.00 

2000.00 

5.00 

100.00 

2000.00 

10.00 

0.10 

2000.00 

10.00 

0.50 

2000.00 

10.00 

1.00 

2000.00 

10.00 

2.00 

2000.00 

10.00 

5.00 

2000.00 

10.00 

10.00 

2000.00 

10.00 

20.00 

2000.00 

10.00 

50.00 

2000.00 

10.00 

75.00 

2000.00 

10.00 

100.00 


0.9891E-01 0.9894E-01 
0.3650E-01 0.365 IE-01 
0.7279E-02 0.7283E-02 
0.2152E-02 0.2153E-02 
0.7182E-03 0.7185E-03 
0.2391E-03 0.2392E-03 
0.1721E-O3 0.1721E-03 
0.1439E-03 0.1439E-03 
0.2358E+00 0.2358E+00 
0.1406E+00 0.1406E+00 
0.6344E-01 0.6344E-01 
0.2080E-01 0.2081E-01 
0.4259E-02 0.4259E-02 
0.1429E-02 0.1429E-02 
0.5954E-03 0.5954E-03 
0.2870E-03 0.2870E-03 
0.2381E-03 0.2381E-03 
0.2164E-03 0.2164E-03 
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c Program to calculate LTE and NLTE bulk temp, under gray 
c gas assumption for CHj4 

implicit double precision (a-h,o-z) 
real l,kfb 

dimension u(10),press(4),Temp(4) 

data u/0.1, 03,1.0^0^.0,10.0^0.0^0.0, 75., 100.0/ 

data press/ 0 . 1 , 1 . 4 . 40 . 0 / 

data temp/300.400.4000.04000.0/ 

open(unit=29, flles’nlp’) 

open(unit=30, files'lp*) 

open(unit=31, file= , out31.dat , ) 

write(3 1,230) 

write(29,13) 

write(29,*) 10,1 

13 formally, ’xy/ty, 

write(3044) 
write(30,*) 104 

14 format^y/xV/ty, f,i4*,'V) 
do 101 it=l,4 

tw=temp(it) 
do 202 kk=l,4 

p=press(kk) 

do 303 i=l,10 
l=u(i) 

c 

c Calculation of Plank’s Function and it’s derivative 
c wnb Band Center 
c bek Constant 

c ccc cl*c2 (ergjc_cm**3/sec) 
c pfdbi Plank’s Function’s derivative for ith band 

c 

tkl=tw**2 
tk2=tw**03 
tk3=tw/273.0 
bck=l. 439257246 
ts=300.0/tw 

c 

c Spectroscopic Properties of CH4 
c Two Bands of CH4 are cosidered(7.6 and 3.3 microns) 
c wnbi Band Center (1/cm) 

c — ‘ 

wnbl=1310. 
wnb 2 =3020. 
c2bl=hck*wnbl 
c2b2=hck*wnb2 
ccc =0.000053847734 
ceb 1 =ccc *(wnbl * *4) 
ccb2=ccc*(wnb2* *4) 
tbl=c2bl/tw 
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tb2=c2b2/tw 

tcbl= cxp(tbl) 

teb2= cxp(tb2) 

clbl=ccbl/c2bl 

clb2=ccb2/c2b2 

pfbl=clbl/(tebl-1.0) 

pfb2=clb2/(teb2-1.0) 

devl =tkl *((tebl-l .0) * *2.0) 

dev2=tkl *((teb2^1 .0) * *2.0) 

pfdbl=(ccbl *tcbl)/dcvl 

pfdb2=(ccb2 * tcb2)/dcv2 

C 

Band Model Correlations (Tien & Lowder wide band model) 

c azi aoi (1/cm) 

c czsi coi**2 (1/atm-cm) 

cbsi b**2 (Nondimensional) 

c omegi Wave Number (1/cm) 

c si Integrated Band Intensity (1/atm cm* *2) 


akl=(tw/300.)**0.5 
a k2=(300./tw) * * 1.5 
azl=39.8*akl 
az2=95.3*akl 


c dkf Thermal Conductivity (Erg/cm-sec-k) 


kfb=(1488.365171)*(tk3**1.23) 

c01=4.58*ak2 

c02=3.15*ak2 

sl=azl*c01 

s2=az2*c02 

ETCl=((40.*(TW**(-l/3.))>-5.4) 

ETC2=EXP(ETCl)*(l.E-6) 

ETAC=ETC2/P 

ETRll=8.*3.14*(1310.**(2.))*4.08*(l.E-12)*sl*tw 

ETARU1./ETRU 

ETR12=8.*3.14*(3020.**(Z))*4.08*(l.E~12)*s2*tw 

ETAR2=1./ETR12 

ETA 1 1 =ETAC/ETAR 1 

ETA 1 2=ETAC/ETAR2 

aapl=etall/sl 

aap2=etal2/s2 

aapxl=(3./4.)*(aapl)/p 

aapx2=(3./4.)*(aap2)/p 

am2=l.+(aapxl+aapx2) 

tin=p*l**2./kfb*(sl*pfdbl+s2*pfdb2) 

tn= exp(-(3. * tin) * *0.5) 

anexp=(l .-tn)/(l .+tn) 

tcm=l/kfb *(pfdbl *azl +pfdb2*az2) 
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ila =0.00005 668 

akp*p/(ala*tw* * 4 .)*(sl*pfbl+s 2 *pfb 2 ) 
tao*akp*l 

anba=kfb*akp/(4.*ala*tw**3.) 
r=3.*tao**2./anba 
alm=3.*tao**2.*(0.75+l./anba) 
am* sqrt(*lm) 
cm= exp{— am) 

ad=3.*tao*(l.-em)+2.*am*(l.+em) 

ac=r/am**8.*(48.-3.*tao*am**2.+36.*tao)/ad 

pal*24.-12. *am+am* *3.+(am* *3.-12. *am-24.)*em 

pa2=-12.*r/(5.*am**4.)+17.*r/(70.*am**2.) 
ambarsam/(aqrt(am2)) 
ibar=r/am2 
embar*exp(— ambar) 

adbar*3.0*tao*(1.0-embar)+2.0*ambar*(1.0+embar) 

acbar=(rbar/(ambar**8.))*(48.-3.*tao*(ambar** 

* 2.0)+36.0*tao)/adbar 
palbar=24.0-12.0*ambar+ambar**3.0 

* +(ambar**3.0-12.0*ambar-24.0)*embar 
pa2bar=-12.0*rbar/(5.0*ambar**4.0)+ 

* 17.0*rbar/(70.0*ambar* *2.0) 
tbulk=ac*pal+pa2— 17./70. 
tbulkn*acbar*pa lbar+pa2bar-17.0/70.0 
write(29,104) l,-tbulk,-tbulkn 
writc(30,100) 1,-tbulkn 
write(31,1000)tw, p, 1, -tbulk, -tirnlkn 

100 format(lx,f9.2,3x,el0.4) 

104 fonnat(lx,f9.2,2(3x,cl0.4)) 

303 continue 

202 continue 

101 continue 

1000 format (lx,f7.2, 3x,f6.2, 3x,f6.2, 3x,cl0.4, 3x,cl0.4) 
230 format (4x, , tw’,8x,’p’,6x ) T,9x, , tbulk’,9x > ’tbulkn’) 
stop 
end 
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GRAY GAS RESULTS FOR CH4 


tw 


300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

500.00 
500.00 
500.00 
500.00 


p 1 tbulk (LTE) tbulkn (NLTE) 


0.10 

0.10 

0.10 

0.50 

0.10 

1.00 

0.10 

2.00 

0.10 

5.00 

0.10 

10.00 

0.10 

20.00 

0.10 

50.00 

0.10 

75.00 

0.10 

100.00 

1.00 

0.10 

1.00 

0.50 

1.00 

1.00 

1.00 

2.00 

1.00 

5.00 

1.00 

10.00 

1.00 

20.00 

1.00 

50.00 

1.00 

75.00 

1.00 

100.00 

5.00 

0.10 

5.00 

0.50 

5.00 

1.00 

5.00 

2.00 

5.00 

5.00 

5.00 

10.00 

5.00 

20.00 

5.00 

50.00 

5.00 

75.00 

5.00 

100.00 

10.00 

0.10 

10.00 

0.50 

10.00 

1.00 

10.00 

2.00 

10.00 

5.00 

10.00 

10.00 

10.00 

20.00 

10.00 

50.00 

10.00 

75.00 

10.00 

100.00 

0.10 

0.10 

0.10 

0.50 

0.10 

1.00 

0.10 

2.00 


0.2490E+00 
0.2424E+00 
0.2412E+00 
0.2363E+00 
0.2074E+00 
0.145 2E+00 
0.6771E-01 
0.1578E-01 
0.7989E-02 
0.5008E-02 
0.2427E+00 
0.2388E+00 
0.2276E+00 
0.1929E+00 
0.9929E-01 
0.4184E-01 
0.1681E-01 
0.6791E-02 
0.5267E-02 
0.4611E-02 
0.2420E+00 
0.2250E+00 
0.1883E+00 
0.1235E+00 
0.5240E-01 
0.2976E-01 
0.2095E-01 
0.1683E-01 
0.1605E-01 
0.1568E-01 
0.241 2E+00 
0.2121E+00 
0.1637E+00 
0.1022E+00 
0.5243E-01 
0.3813E-01 
0.3230E-01 
0.2935E-01 
0.2876E-01 
0.2847E-01 
0.2426E+00 
0.2417E+00 
0.2383E+00 
0.2256E+00 


0.2392E+00 

0.2424E+00 

0.2412E+00 

0.2363E+00 

0.2074E+00 

0.1453E+00 

0.6771E-01 

0.1578E-01 

0.7989E-02 

0.5008E-02 

0.2427E+00 

0.2388E+00 

0.2276E+00 

0.1929E+00 

0.9929E-01 

0.4184E-01 

0.1681E-01 

0.6791E-02 

0.5267E-02 

0.4611E-02 

0.2420E+00 

0.2250E+00 

0.1883E+00 

0.1235E+00 

0.5240E-01 

0.2976E-01 

0.2095E-01 

0.1683E-01 

0.1605E-01 

0.1568E-01 

0.2412E+00 

0.2121E+00 

0.1637E+00 

0.1022E+00 

0.5243E-01 

0.3813E-01 

0.3230E-01 

0.2935E-01 

0.2876E-01 

0.2847E-01 

0.2427E+00 

0.2417E+00 

0.2383E+00 

0.2256E+00 
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500.00 0.10 5.00 0.1651E+00 0.1651E+00 

500.00 0.10 10.00 0.8540E-01 0.8540E-01 

500.00 0.10 20.00 03012E-01 0.3012E-01 

500.00 0.10 50.00 0.6114E-02 Q.6U4E-02 

500.00 0.10 75.00 03067E-02 0.3067Er-02 

500.00 0.10 100.00 0.1929E-02 0.1929E-02 

500.00 1.00 0.10 0.2424E+00 0.2424B+00 

500.00 1.00 030 0.2319E+00 0.2319E+00 

500.00 1.00 1.00 0.2050E+00 0.2050E+00 

500.00 1.00 2.00 0.1422E+00 0.1422E+00 

500.00 1.00 5.00 0.4962E-01 0.4962E-01 

500.00 1.00 10.00 0.1782E-01 0.1782E-01 

500.00 1.00 20.00 0.6949E-02 0.6949Er-02 

500.00 1.00 50.00 0.2911E-02 0.2911E-02 

500.00 1.00 75.00 0.2299E-02 0.2299E-02 

500.00 1.00 100.00 0.2034E-02 0.2034E-02 

500.00 5.00 0.10 0.2406E+00 0.2406E+00 

500.00 5.00 030 0.1996E+00 0.1996E+00 

500.00 5.00 1.00 0.1364E+00 0.1364E+00 

500.00 5.00 2.00 0.6842E-01 0.6842E-01 

500.00 5.00 5.00 0.2421E-01 0.2421E-01 

500.00 5.00 10.00 0.1358E-01 0.1358E-01 

500.00 5.00 20.00 0.9666E-02 0.9666E-02 

500.00 5.00 50.00 0.7838E-02 0.7838E-02 

500.00 5.00 75.00 0.7488E-02 0.7488E-02 

500.00 5.00 100.00 0.7321E-02 0.7321 E-02 

500.00 10.00 0.10 0.2385E+00 0.2385E+00 

500.00 10.00 0.50 0.1746E+00 0.1746E+00 

500.00 10.00 1.00 0.1066E+00 0.1066E+00 

500.00 10.00 2.00 03407E-01 03407E-01 

500.00 10.00 5.00 0.2541E-01 0.2541Er-01 

500.00 10.00 10.00 0.1840E-01 0.1840E-01 

500.00 10.00 20.00 0.1560E-01 0.1560E-01 

500.00 10.00 50.00 0.1417E-01 0.1417E-01 

500.00 10.00 75.00 0.1388E-01 0.1388E-01 

500.00 10.00 100.00 0.1374E-01 0.1374E-01 

1000.00 0.10 0.10 0.2428E+00 0.2428E+00 

1000.00 0.10 0.50 0.2408E+00 0.2408E+00 

1000.00 0.10 1.00 0.2349E+00 0.2349E+00 

1000.00 0.10 2.00 0.2141E+00 0.2141E+00 

1000.00 0.10 5.00 0.1324E+00 0.1324E+00 

1000.00 0.10 10.00 03646E-01 03646E-01 

1000.00 0.10 20.00 0.1746E-01 0.1746E-01 

1000.00 0.10 50.00 0.3180E-02 0.3180E-02 

1000.00 0.10 75.00 0.1506E-02 0.1506E-02 

1000.00 0.10 100.00 0.8987E-03 0.8987E-03 

1000.00 1.00 0.10 0.2420E+00 0.2420E+00 

1000.00 1.00 0.50 0.2241E+00 0.2241E+00 

1000.00 1.00 1.00 0.1826E+00 0.1826E+00 
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1000.00 

1.00 

2.00 

1000.00 

1.00 

5.00 

1000.00 

1.00 

10.00 

1000.00 

1.00 

20.00 

1000.00 

1.00 

50.00 

1000.00 

1.00 

75.00 

1000.00 

1.00 

100.00 

1000.00 

5.00 

0.10 

1000.00 

5.00 

0.50 

1000.00 

5.00 

1.00 

1000.00 

5.00 

2.00 

1000.00 

5.00 

5.00 

1000.00 

5.00 

10.00 

1000.00 

5.00 

20.00 

1000.00 

5.00 

50.00 

1000.00 

5.00 

75.00 

1000.00 

5.00 

100.00 

1000.00 

10.00 

0.10 

1000.00 

10.00 

0.50 

1000.00 

10.00 

1.00 

1000.00 

10.00 

2.00 

1000.00 

10.00 

5.00 

1000.00 

10.00 

10.00 

1000.00 

10.00 

20.00 

1000.00 

10.00 

50.00 

1000.00 

10.00 

75.00 

1000.00 

10.00 

100.00 

2000.00 

0.10 

0.10 

2000.00 

0.10 

0.50 

2000.00 

0.10 

1.00 

2000.00 

0.10 

2.00 

2000.00 

0.10 

5.00 

2000.00 

0.10 

10.00 

2000.00 

0.10 

20.00 

2000.00 

0.10 

50.00 

2000.00 

0.10 

75.00 

2000.00 

0.10 

100.00 

2000.00 

1.00 

0.10 

2000.00 

1.00 

0.50 

2000.00 

1.00 

1.00 

2000.00 

1.00 

2.00 

2000.00 

1.00 

5.00 

2000.00 

1.00 

10.00 

2000.00 

1.00 

20.00 

2000.00 

1.00 

50.00 

2000.00 

1.00 

75.00 

2000.00 

1.00 

100.00 

2000.00 

5.00 

0.10 

2000.00 

5.00 

0.50 


0.1059E+00 0.1059E+00 
0.2839E-01 0.2839E-01 
0.8666E-02 0.8666E-02 
0.2769E-02 0.2769E-02 
0.8130E-03 0.8130E-03 
0.5494E-03 0.5494E-03 
0.4413E-03 0.4413E-03 
0.2389E+00 0.2389E+00 
0.1735E+00 0.1735E+00 
0.966 2E-01 0 9662E-01 
0.3778E-01 0.3778E-01 
0.9497E-02 0.9497E-02 
0.3964E-02 0.3964E-02 
0.2166E-02 0.2166E-02 
0.1417E-02 0.1417E-02 
0.1284E-02 0.1284E-02 
0.1223E-02 0.1223E-02 
0.235 1E+00 0.235 1E+00 
0.1382E+00 0.1382E+00 
0.6531E-01 0.6531E-01 
0.2483E-01 0.2483E-01 
0.7742E-02 0.7742E-02 
0.4260E-02 0.4260E-02 
0.301 IE-02 03011E-02 
0.2427E-02 0.2427E-02 
0.2314E-02 0.2314E-02 
0.2260E-02 0.2260E-02 
0.2428E+00 0.2428E+00 
0.2413E+00 0.2413E+00 
0.2367E+00 0.2367E+00 
0.2199E+00 0.2199E+00 
0.1469E+00 0.1469E+00 
0.6737E-01 0.6737E-01 
0.2137E-01 0.2137E-01 
0.3750E-02 0.3750E-02 
0.1703E-02 0.1703E-02 
0.9733E-03 0.9733E-03 
0.2422E+00 0.2422E+00 
0.2280E+00 0.2280E+00 
0.1927E+00 0.1927E+00 
0.1192E+00 0.1192E+00 
03290E-01 0.3290E-01 
0.9387E-02 0.9387E-02 
0.2544E-02 0.2544E-02 
0.4789E-03 0.4789E-03 
0.2419E-03 0.2419E-03 
0.1541E-03 0.1541E-03 
0.2397E+00 0.2397E+00 
0.1835E+00 0.1835E+00 
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2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 


5.00 1.00 0.1067E+00 0.1067E+00 

5.00 2.00 0.4062E-01 0.4062E-01 

5.00 5.00 0.8145E-02 0.8145B-02 

5.00 10.00 0.2371E-02 a2371E-02 

5.00 20.00 0.7664E-03 a7664E-03 

5.00 50.00 0.2384E-03 0.2384E-03 

5.00 75.00 0.1661E-O3 0.1661E-03 

5.00 100.00 0.1361E-03 0.1361E-03 

10.00 0.10 0.2367E+00 0.2367E+00 

10.00 0.50 0.1482E+00 0.1482E+00 

10.00 1.00 0.6958E-01 0.6958E-01 

10.00 2.00 0.2320E-01 0.2320E-01 

10.00 5.00 0.4690E-02 0.4690E-02 

10.00 10.00 0.1525E-02 0.1525E-02 

10.00 20.00 0.6045E-03 0.6045E-03 

10.00 50.00 0.2714E-03 0.2714E-03 

10.00 75.00 0.2200E-03 0.2200E-03 

10.00 100.00 0.1973E-03 0.1973E-03 
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PROGRAM NLTE 

C THIS PROGRAM INVESTIGATES LTE and NLTE EFFECT IN CO (NONGRAY CASE) 
C THIS PROGRAM IS WRITTEN BY MANOJ K. JHA IN AUGUST 1992 

C 

C IMPLICIT DOUBLE PRECISION (A-H.O-Z) 

DOUBLE PRECISION IERR 
REALL.KFB 

EXTERNAL F10,Fll,F12T f 13,F14 
DIMENSION U(9),PRES(4),TEMP(4),EPS(2) 

COMMON F 

OPEN (1 JILEs’outllla’) 

OPEN^jn^’nlp’) 

OPEN (3,FILE=Tp’) 

DATA U/0.1,0.5,1.,5.,10.,20.,50.,75., 100./ 

DATA PRES/0.1, l.,5.,10./ 

DATA TEMP/300.,500.,1000.,2000./ 

WRITE (1,11) 
write(2,13) 
writc(2,*) 9,1 

13 toimat(’3' J,'t’ J, ’tl V.M^.’l’) 

write(3,14) 
writc(3,*) 9,1 

14 format(’2’,/, ’xy,’ty, /,i4pc,’l’) 

DO 4 IT«1,4 
TW=TEMP(IT) 

DO 5 KK=1,4 
P=PRES(KK) 

DO 6 1=1,9 
L=U(I) 

TK1=TW**2. 

TK2=TW*»05 

TK3=TW/273. 

HCK=1. 439257246 

TS=300./TW 

WNB=2143. 

C2B=HCK* WNB 
CCC=0.00005 3847734 
CCB=CCC*(WNB**4.) 

TB=C2B/TW 

TEB=EXP(TB) 

C1B=CCB/C2B 

PFB=C1B/(TEB-1.) 

DEV=TK1 *((TEB-1.)**2.) 

PFDB=(CCB *TEB)/DE V 
AKl=(TW/300.)**0.5 
AK2=(300./TW)* * 1.5 
AZ=38.1*AK1 

KFB=2325J70579*(TK3**0.8) 

OMEG=2143. 
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TX=-(HCK/rW) 

TXl=TX*OMEG 

ETX1«EXP(TX1) 

CU1.-BTX1 

PHIl=(15.15+(0.22*((TW/100.)*n^)))*Cl 

CZ=6.24*AK2 

S=AZ*CZ 

PL=P*L 

UZ=CZ*PL 

DEL1=((PHI1**2.)/AK1)*0.001 

BS=0.314*DEL1 

PE=(1.1*P)**0.8 

BETA=BS*PE 

F=2.94*(1.-EXP(-(2.6*BETA))) 

EPS(2)=l.E-03 

EPS(l)=l.E-03 

X1=0. 

X2=(3./8.)*UZ 

Y1=1.5*UZ 

Y2=3.*X2 

CALL QDAGS (F10*1,Y1£PS(2)3PS(1)*0,IERR) 
CALL QDAGS (F11,X1 > Y1,EPS(2),EPS(1),R1,IERR) 
CALL QDAGS (F12,X1,Y1,EPS(2),EPS(1),R2,IERR) 
CALL QDAGS (F13^1,Y1 > EPS(2) ) EPS(1) ( R3 I IERR) 
CALL QDAGS (F14X1,Y1,EPS(2) > EPS(1),R4,IERR) 
CALL QDAGS (F10,X2,Y2,EPS(2),EPS(1),S1,IERR) 
CALL QDAGS (Fll,Xl,X2£PS(2),EPS(l),S2aERR) 
CALL QDAGS (FI 1 ,X1 , Y2,EPS(2),EPS(1),S3,IERR) 
CALL QDAGS (F12X2,Y2,EPS(2),EPS(1) ( S4JERR) 
CALL QDAGS (F13,X1,X2,EPS(2),EPS(1),S5,IERR) 
CALL QDAGS (F13,X1,Y2,EPS(2),EPS(1),S6JERR) 
CALL QDAGS (F14,X2,Y2,EPS(2),EPS(1) ) S7,IERR) 
H=AZ*PFDB 
AM=(H*L)/KFB 
CU =2-/(3. *UZ) 

BU=1./CU 

BR1A=(CU*R1)-(2.*(CU**3.)*R3)+((CU**4.)*R4) 

BR1B=((CU**2-)*R2)-(CU*R1) 

ETCl=(14.)**(l./4.) 

ETC2=0.015*ETC1 
ETC3=TW* *( — 1./3.) 

ETC4=ETC3-ETC2 

ETC5=175.*ETC4 

ETC6=(ETC5-18.42) 

ET C7=EXP(ETC6) 

ETAC=ETC7/P 
ETAR =0.0297 
ETA=ETAC/ETAR 
SUMA=H*BR1A 
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AL1L=1.+((L/KFB)*SUMA) 

ALPHl=ALlL-((9./2.)*ETA*CU*BRlB) 

BR2A=((CU**2.)*R2)-(2. *(CTJ* *3.)*R3)+{(CU**4.)*R4) 
BR2B=R0-(6.*CU*R1)+(6.*(CU**2.)*R2) 

SUMB=H*BR2A 

AL2L=(L/KFB)*SUMB 

ALPH2=AL2L-((3./4.)*ETA*CU*BR2B) 

ALPHO = (9./2.)*ETA*(CU**2)*(CU*R2-Rl)-l. 

BR3A=((57./256.)*S1)+((11./16.)*CU*(S2+S3)) 

*-((9./8.)*(CU**2.)*S4>-((CU**3.)*(S5+S6))+((CU**4.)*S7) 

BR3B=((9./4.)*CU*S1)+(6.*(CU**2.)*(S2+S3)) 

*-(12*(CU**3.)*S4) 

SUMC=H*BR3A 

AL3L=((L/KFB)*SUMC)+(11./16.) 

ALPH3 =AL3L+((3./8.)*ETA*BR3B) 

BR4A=((9./256.)*Sl)+((3./16.)*CU*(S2+S3)) 

*-((l./8.)*(CU**2.)*S4)-((CU**3.)*(S5+S6))+((CU**4.)*S7) 

BR4B=((1./4.)*CU*S1)+(6.*(CU**2.)*(S2+S3))-(12.*(CU**3.)*S4) 

SUMD=H*BR4A 

AL4L=((L/KFB)*SUMD)+{3./16.) 

ALPH4 =AL4L+((3./8.)*ETA*BR4B) 

BRK5=(3./16.)*(CU*S1)+(1./2.)*(CU**2.)*(S2+S3)-(CU**3.)*S4 
ALPH5 = -((9./2.)*ETA*BRK5+(ll./16.)) 

DENA = (ALPH1 *ALPH4)-(ALPH2*ALPH3) 

A1 =(( ALPHO * ALPH4)-(ALPH2*ALPH5))/DENA 

A2=((ALPH1 *ALPH5)-<ALPH0*ALPH3))/DENA 

TBULK = (l./70.)*((17.*Al)+(3.*A2)) 

CONST=l./(16.*(ALlL*AL4L-AL2L*AL3L)) 

all=(ll.*al2l-16.*al41)*CONST 

A2L=(16.*AL3 1^-11. *ALlL)*CONST 

TBULKL=(1/70.)*(17. *A1 L+3. * A2L) 

BETO=-(3./8.)*(ETA*CU)*(LOG((BU+EPS(l))/EPS(l))) 

BETl=l+AM*(7./12.)+((9./4.)*ETA*CU) 

BET2=(AM/12.)-(3./4.)*ETA*CU*(LOG((BU+EPS(l))/EPS(l))-3.) 

BET3=AM*((57./256.)*LOG(3.)+(65./192.))+(ll./16.) 

*+(3./8.)*ETA*CU*((9./4.)*LOG(3.)+3.) 

BET4=AM*((9./256.)*LOG(3.)+(17./192.))+{3./16.) 

*+(3./8.)*ETA*CU*((LOG(3.)/4.)+3.) 

BET5=((3./8.)*ETA*CU*LOG(3.)Hll-/16.) 

DENB=BET1 * BET 4-BET2 * BET3 
B 1 =-(BET4+(BET0*BET4)+(BET2*BET5))/DENB 
B2=(BET3+(BET0*BET3)+(BET1 *BET5))/DENB 
TTHIC=(1./70.)*(17.*B1+3.*B2) 

AN=PL*CZ*H 

ANBA=AN/(l.+(3./4.)*ETA) 

ANBA1 =SQRT(3. *ANBA) 
BRKT=(1.-EXP(-ANBA1))/(1.+EXP(-ANBA1)) 

BRKT1 =576. *BRKT/ANBA1 

BRKT2=BRKTl-(21.6*(ANBA**2.))+(72.*ANBA)-288. 
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TTHIN=BRKT2/((3.*ANBA)**3.) 

WRITE (1,19) TW^-TBULK,-TBULKL 
WRITE (2^0) L.-TBULKL.-TBULK 
WRITE (3,21) L-TBULK 
6 CONTINUE 
5 CONTINUE 
4 CONTINUE 

write(V) etoc,etar,eU 

19 FORMAT (1XJ7.2^(3XJ6.2),2(3X310.4)) 

20 FORMAT (3X,F6.2£(3X£10.4)) 

21 FORMAT (3XJ r 6.2,3X I E10-4) 

11 FORMAT (4X, TW*,8X,*P*,6X,V,9X,TBULK*,9X,TBULKL*) 
STOP 
END 

C 

FUNCTION F10(U) 

COMMON F 

DEN=(F*((U**2.)+(2. *U)+2.)+U)*(U+(2. *F)) 

AUD=(F*((U**2.)+(4.*U , F)+(4. *F)))/DEN 

F10=AUD 

RETURN 

END 

FUNCTION F11(U) 

COMMON F 

DEN=(F*((U**2.)+(2.*U)+2.)+U)*(U+(2.*F)) 

AUD=(F*((U* *2.)+(4. *U*F)+(4. *F)))/DEN 

F11=AUD*U 

RETURN 

END 

FUNCTION F12(U) 

COMMON F 

DEN=(F*((U**2.)+(2.*U)+2.)+U)*(U+(2.*F)) 

AUD=(F*((U* *2.)+(4.*U*F)+(4. *F)))/DEN 
F12=AUD*(U**2.) 

RETURN 

END 

FUNCTION F13(U) 

COMMON F 

DEN=(F*((U**2.)+(2.*U)+2.)+U)*(U+(2.*F)) 

AUD=(F*((U* *2.)+(4.*U*F)+(4. *F)))/DEN 
F13=AUD*(U**3.) 

RETURN 

END 

FUNCTION F14(U) 

COMMON F 

DEN=(F*((U * *2.)+(2. *U)+2.)+U)*(U+(2. *F)) 

AUD=(F*((U**2.)+(4.*U*F)+(4.*F)))/DEN 

F14=AUD*(U**4.) 
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RETURN 

END 
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NONGRAY RESULTS FOR CO 


TW P 

L 

TBULK (NLTE) 

TBULKL (LTE) 

300.00 

0.10 

0.10 

0 

1 

0.2429E+00 

300.00 

0.10 

0.50 

0.2429E+00 

0.2428E+00 

300.00 

0.10 

1.00 

0.2429E+00 

0.2428E+00 

300.00 

0.10 

5.00 

0.2429E+00 

0.2421E+00 

300.00 

0.10 

10.00 

0.2428E+00 

0.2406E+00 

300.00 

0.10 

20.00 

0.2428E+00 

0.2361E+00 

300.00 

0.10 

50.00 

0.2426E+00 

0.2176E+00 

300.00 

0.10 

75.00 

0.2424E+00 

0.2016E+00 

300.00 

0.10 

100.00 

0.2420E+00 

0.1868E+00 

300.00 

1.00 

0.10 

0.2429E+00 

0.2428E+00 

300.00 

1.00 

0.50 

0.2429E+00 

0.2426E+00 

300.00 

1.00 

1.00 

0.2428E+00 

0.2422E+00 

300.00 

1.00 

5.00 

0.2427E+00 

0.2383E+00 

300.00 

1.00 

10.00 

0.2421E+00 

0.2330E+00 

300.00 

1.00 

20.00 

0.2399E+00 

0.2228E+00 

300.00 

1.00 

50.00 

0.2280E+00 

0.1966E+00 

300.00 

1.00 

75.00 

0.2149E+00 

0.1791E+00 

300.00 

1.00 

100.00 

0.2010E+00 

0.1644E+00 

300.00 

5.00 

0.10 

0.2429E+00 

0.2428E+00 

300.00 

5.00 

0.50 

0.2428E+00 

0.2423E+00 

300.00 

5.00 

1.00 

0.2427E+00 

0.2417E+00 

300.00 

5.00 

5.00 

0.2400E+00 

0.2370E+00 

300.00 

5.00 

10.00 

0.2352E+00 

0.2314E+00 

300.00 

5.00 

20.00 

0.2250E+00 

0.2209E+00 

300.00 

5.00 

50.00 

0.1979E+00 

0.1948E+00 

300.00 

5.00 

75.00 

0.1798E+00 

0.1774E+00 

300.00 

5.00 

100.00 

0.1648E+00 

0.1629E+00 

300.00 

10.00 

0.10 

0.2428E+00 

0.2428E+00 

300.00 

10.00 

0.50 

0.2427E+00 

0.2422E+00 

300.00 

10.00 

1.00 

0.2423E+00 

0.2416E+00 

300.00 

10.00 

5.00 

0.2381E+00 

0.2369E+00 

300.00 

10.00 

10.00 

0.2324E+00 

0.2312E+00 

300.00 

10.00 

20.00 

0.2218E+00 

0.2208E+00 

300.00 

10.00 

50.00 

0.1953E+00 

0.1947E+00 

300.00 

10.00 

75.00 

0.1778E+00 

0.1773E+00 

300.00 

10.00 

100.00 

0.1632E+00 

0.1629E+00 

500.00 

0.10 

0.10 

0.2429E+00 

0.2428E+00 

500.00 

0.10 

0.50 

0.2428E+00 

0.2425E+00 

500.00 

0.10 

1.00 

0.2428E+00 

0.241 9E+00 

500.00 

0.10 

5.00 

0.2419E+00 

0.2347E+00 

500.00 

0.10 

10.00 

0.2391E+00 

0.2208E+00 

500.00 

0.10 

20.00 

0.2290E+00 

0.1851E+00 

500.00 

0.10 

50.00 

0.1799E+00 

0.1013E+00 

500.00 

0.10 

75.00 

0.1389E+00 

0.6731E-01 
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500.00 

0.10 

100.00 

0.1069E+00 

0.4877E-01 

500.00 

1.00 

0.10 

0.2428E+00 

0.2427E+00 

500.00 

1.00 

0.50 

0.2420E+00 

0.2399E+00 

500.00 

1.00 

1.00 

0.2400E+00 

0.2348E+00 

500.00 

1.00 

5.00 

0.2056E+00 

0.1869E+00 

500.00 

1.00 

10.00 

0.1614E+00 

0.1433E+00 

500.00 

1.00 

20.00 

0.1068E+00 

0.9607E-01 

500.00 

1.00 

50.00 

0.5095E-01 

0.4798E-01 

500.00 

1.00 

75.00 

03537E-01 

0.3388E-01 

500.00 

1.00 

100.00 

0.2709E-01 

0.2619E-01 

500.00 

5.00 

0.10 

0.2424E+00 

0.2420E+00 

500.00 

5.00 

0.50 

0.2365E+00 

0.2345E+00 

500.00 

5.00 

1.00 

0.2272E+00 

0.2245E+00 

500.00 

5.00 

5.00 

0.1688E+00 

0.1668E+00 

500.00 

5.00 

10.00 

0.1279E+00 

0.1269E+00 

500.00 

5.00 

20.00 

0.8678E-01 

0.8636E-01 

500.00 

5.00 

50.00 

0.4480E-01 

0.4470E-01 

500.00 

5.00 

75.00 

0.3208E-01 

0.3203E-01 

500.00 

5.00 

100.00 

0.2502E-01 

0.2499E-01 

500.00 

10.00 

0.10 

0.2418E+00 

0.2415E+00 

500.00 

10.00 

0.50 

0.2335E+00 

0.2325E+00 

500.00 

10.00 

1.00 

0.2229E+00 

0.2220E+00 

500.00 

10.00 

5.00 

0.1651E+00 

0.1646E+00 

500.00 

10.00 

10.00 

0.1256E+00 

0.1254E+00 

500.00 

10.00 

20.00 

0.8572E-01 

0.8563E-01 

500.00 

10.00 

50.00 

0.4450E-01 

0.4448E-01 

500.00 

10.00 

75.00 

0.3193E-01 

0.3191E-01 

500.00 

10.00 

100.00 

0.2493E-01 

0.2492E-01 

1000.00 

0.10 

0.10 

0.2428E+00 

0.2428E+00 

1000.00 

0.10 

0.50 

0.2423E+00 

0.2420E+00 

1000.00 

0.10 

1.00 

0.2409E+00 

0.2401E+00 

1000.00 

0.10 

5.00 

0.2206E+00 

0.2173E+00 

1000.00 

0.10 

10.00 

0.1913E+00 

0.1873E+00 

1000.00 

0.10 

20.00 

0.1383E+00 

0.1344E+00 

1000.00 

0.10 

50.00 

0^584Er-01 

0.5395E-01 

1000.00 

0.10 

75.00 

0.3210E-01 

0.3104E-01 

1000.00 

0.10 

100.00 

0.2110E-01 

0.2044E-01 

1000.00 

1.00 

0.10 

0.2425E+00 

0.2424E+00 

1000.00 

1.00 

0.50 

0.2357E+00 

0.2354E+00 

1000.00 

1.00 

1.00 

0.2217E+00 

0.2211E+00 

1000.00 

1.00 

5.00 

0.1197E+00 

0.1188E+00 

1000.00 

1.00 

10.00 

0.6795E-01 

0.6753E-01 

1000.00 

1.00 

20.00 

0.3450E-01 

0.3436E-01 

1000.00 

1.00 

50.00 

0.1329E-01 

0.1327E-01 

1000.00 

1.00 

75.00 

0.8684E-02 

0.8671E-02 

1000.00 

1.00 

100.00 

i 0.6425E-02 

0.641 7E-02 

1000.00 

5.00 

0.10 

0.241 0E+00 

0.2410E+00 

1000.00 

5.00 

0.50 

0.2175E+00 

0.2173E+00 

1000.00 

5.00 

1.00 

0.1853E+00 

0.1851E+00 
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1000.00 5.00 5.00 0.7958E-01 0.7952E-01 

1000.00 5.00 10.00 0.4681E-01 0.4679E-01 

1000.00 5.00 20.00 0.2591B-01 0.2590E-01 

1000.00 5.00 50.00 0.1116E-01 0.1116E-01 

1000.00 5.00 75.00 0.7580E-02 a7579E-02 

1000.00 5.00 100.00 0.5740B-02 0.5740E-02 

1000.00 10.00 0.10 0.2395E+00 0.2394E+00 

1000.00 10.00 0.50 0.2076E+00 0.2075E+00 

1000.00 10.00 1.00 0.1728E+00 0.1727E+00 

1000.00 10.00 5.00 0.7488E-01 0.7487E-01 

1000.00 10.00 10.00 0.4486E-01 0.4486E-01 

1000.00 10.00 20.00 0.2521E-01 0.2521E-01 

1000.00 10.00 50.00 0.1100E-01 0.1100E-01 

1000.00 10.00 75.00 0.7502B-02 0.7502E-02 

1000.00 10.00 100.00 0.5694E-02 0.5694E-02 

2000.00 0.10 0.10 0.2428E+00 0.2428E+00 

2000.00 0.10 0.50 0.2423E+00 0.2423E+00 

2000.00 0.10 1.00 0.2410E+00 0.2410E+00 

2000.00 0.10 5.00 0.2168E+00 0.2166E+00 

2000.00 0.10 10.00 0.1826E+00 0.1824E+00 

2000.00 0.10 20.00 0.1316E+00 0.1314E+00 

2000.00 0.10 50.00 0.6003E-01 0.5993E-01 

2000.00 0.10 75.00 0.3659E-01 0.3653E-01 

2000.00 0.10 100.00 0.2459E-01 0.2456E-01 

2000.00 1.00 0.10 0.2426E+00 0.2426E+00 

2000.00 1.00 0.50 0.2381E+00 0.2381E+00 

2000.00 1.00 1.00 0.2267E+00 0.2267E+00 

2000.00 1.00 5.00 0.1214E+00 0.1213E+00 

2000.00 1.00 10.00 0.6542E-01 0.6540E-01 

2000.00 1.00 20.00 0.3108E-01 0.3108E-01 

2000.00 1.00 50.00 0.1102E-01 0.1102E-01 

2000.00 1.00 75.00 0.6983E-02 0.6983E-02 

2000.00 1.00 100.00 0.5070E-02 0.5070E-02 

2000.00 5.00 0.10 0.2418E+00 0.2418E+00 

2000.00 5.00 0.50 0.223 2E+00 0.2232E+00 

2000.00 5.00 1.00 0.1898E+00 0.1898E+00 

2000.00 5.00 5.00 0.6823E-01 0.6823E-01 

2000.00 5.00 10.00 0.3700E-01 0.3700E-01 

2000.00 5.00 20.00 0.1946E-01 0.1946E-01 

2000.00 5.00 50.00 0.8102E-02 0.8102E-02 

2000.00 5.00 75.00 0.5463E-02 0.5463E-02 

2000.00 5.00 100.00 0.4124E-02 0.4124E-02 

2000.00 10.00 0.10 0.2408E+00 0.2408E+00 

2000.00 10.00 0.50 0.2115E+00 0.2115E+00 

2000.00 10.00 1.00 0.1705E+00 0.1705E+00 

2000.00 10.00 5.00 0.6040E-01 0.6040E-01 

2000.00 10.00 10.00 0.3399E-01 0J399E-01 

2000.00 10.00 20.00 0.1844E-O1 0.1844E-01 

2000.00 10.00 50.00 0.7886E-02 0.7886E-02 
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2000.00 

2000.00 


10.00 75.00 0.5358E-02 0.5358E-02 
10.00 100.00 0.4061E-02 0.4061E-02 
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C THIS PROGRAM INVESTIGATES LIE and NLTE EFFECT IN NO (NONGRAY CASE) 
C THIS PROGRAM IS WRITTEN BY MANOJ K.JHAIN SEPTEMBER 1992 

C 

C IMPLICIT DOUBLE PRECISION (A-fl,0-Z) 

DOUBLE PRECISION EERR 
REALL.KFB 

EXTERNAL F10 ,Fll,F12J r 13,F14 
DIMENSION U(9),PRES(4),TEMP(4),EPS(2) 

COMMON F 

OPEN (ljFILEs’outllba’) 

OPEN (2JFILE= , nlp’) 

OPEN (34TLE=Tp’) 

DATAU/0.1,03,1.^.,10.^0.^0.,75.,100./ 

DATA PRES/0.1,1.,5.,10./ 

DATA TEMP/300.,500.,1000.,2000./ 

WRITE (1,11) 
write(2,13) 
write(2,*) 9,1 

13 fonnat(’3V.’xV,’tV, HVJM.’l’) 

writc(3,14) 
writc(3,*) 9,1 

14 fonnatCZy.’Jcy.’ty, 

DO 4 TT=1,4 
TW=TEMP(IT) 

DO 5 KK=1,4 
P=PRES(KK) 

DO 6 1=1,9 
L=U(I) 

TK1=TW**2. 

TK2=TW**0.5 

TK3=TW/273. 

HCK= 1.439257246 

TS=300./TW 

WNB=1876. 

C2B=HCK*WNB 
CCC=0.00005 3847734 
CCB=CCC*(WNB**4.) 

TB=C2B/TW 

TEB=EXP(TB) 

C1B=CCB/C2B 

PFB=C1B/(TEB-1.) 

DEV=TK1 *((TEB-1.)* *2.) 

PFDB=(CCB *TEB)/DE V 
AKl=(TW/300.)**0.5 
AK2=(300./TW)**1.5 
AZ=36.*AK1 

KFB=(TW/179.16)*0.01378*(l.E+8)*(l./(36.*23.889)) 

OMEG=1876. 
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TX=-(HCK/TW) 

TX1=TX*0MEG 

ETX1=EXP(TX1) 

C1=1.-ETX1 

S=132.*TS 

CZ=S/AZ 

PL=P*L 

UZ=CZ*PL 

PE=P**.65 

BS=0.1042117/akl 

BETA=BS*PE 

F=2.94*(1.-EXP(-(2.6*BETA))) 

EPS(2)=l.E-03 

EPS{l)=l.E-03 

X1=0. 

X2=(3./8.)*UZ 

Y1=15*UZ 

Y2=3.*X2 

CALL QDAGS (F10^C1,Y1,EPS(2),EPS(1),R04ERR) 
CALL QDAGS (FU,X1,Y1,EPS(2),EPS(1),R1,IERR) 
CALL QDAGS (F12 ( Xl,Yl,EPS(2) ) EPS(l),R2 ) ffiRR) 
CALL QDAGS (F13^Q,Y1,EPS(2),EPS(1),R34ERR) 
CALL QDAGS (F14,X1,Y1,EPS(2),EPS(1),R4,IERR) 
CALL QDAGS (F10,X2,Y2,EPS(2),EPS(1),S1 JERR) 
CALL QDAGS (F11,X1,X2,EPS(2) > EPS(1),S2,IERR) 
CALL QDAGS (Fll,Xl > Y2,EPS(2),EPS(l),S3,ffiRR) 
CALL QDAGS (F12,X2,Y2 ( EPS{2),EPS(1),S4,IERR) 
CALL QDAGS (F13,Xl>X2 ( EPS(2),EPS(l) ) S5 r ffiRR) 
CALL QDAGS (F13,X1,Y2,EPS(2) > EPS(1),S6,IERR) 
CALL QDAGS (F14,X2,Y2,EPS(2),EPS(1),S7,IERR) 
H=AZ*PFDB 
AM=(H*L)/KFB 
CU=2./(3.*UZ) 

BU=1./CU 

BR1A=(CU*R1)-(2.*(CU**3.)*R3)+((CU**4.)*R4) 

BR1B=((CU**2.)*R2>-(CU*R1) 

ETCl=1.16*l.E-3*((15)**0.5)*(2700.**(4./3.)) 

ETC2=TW**(-l./3.)-0.015*((15.)**0.25) 

ETC3=ETC1 *ETC2-18.42 
ETC4=EXP(ETC3) 

ETAC=ETC4/P 

ETAR1=8*3.14*(1876.**(2.))*4.08*(1.E-12)*300*132 

ETAR= 1 /ETAR1 

ETA=ETAC/ETAR 

SUMA=H*BR1A 

AL1L=1.+((L/KFB)*SUMA) 

ALPHl=ALlL-((9./2.)*ETA*CU*BRlB) 

BR2A=((CU**2.)*R2}-(2. *(CU* *3.)*R3)+<(CU**4.)*R4) 

BR2B=R0-(6.*CU*R1)+(6.*(CU**2.)*R2) 
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SUMB=H*BR2A 

AL2L-(L/KFB)*SUMB 

ALPH2=AL2L-((3./4.)*ETA*CU*BR2B) 

ALPHO - (9./2.)*ETA*(CU**2.)*(CU*R2-Rl)-l. 
BR3A=((577256.)*S 1)+((11 ./16.) *CU *(S2+S3)) 

*-((9./8.)*(CU**2.)*S4>-((CU**3.)*(S5+S6))4<(CU , *4.)*S7) 

BR3B=((9./4.)*CU*S1)+(6.*(CU**2.)*(S2+S3)) 

*-(12*(CU* *3.)*S4) 

SUMC=H*BR3A 

AUL»((L/KFB)*SUMC)+(n-/16.) 

ALPH3 =AL3L+((3./8.)*ETA*BR3B) 
BR4A=((9./256.)*Sl)+((3./16.)*CU*(S2+S3)) 
•-((l./8.)*(CU**2.)*S4)-((CU**3.)*(S5+S6))+((CU**4.)*S7) 
BR4B=((1./4.)*CU*S1)+(6.*(CU**2.)*(S2+S3))-(12.*(CU**3.)*S4) 

SUMD=H*BR4A 

AL4L=((L/KFB)*SUMD)+(3./16.) 

ALPH4 =AL4L+((3./8.)*ETA*BR4B) 

BRK5K3./16.)*(CU*S1)+(1./2.)*(CU**2.)*(S2+S3HCU**3.)*S4 

ALPH5 = -<(9./2.)*ETA*BRK5+(ll./16.)) 

DENA = (ALPH1 *ALPH4)-(ALPH2*ALPH3) 
A1=((ALPH0*ALPH4)-(ALPH2*ALPH5))/DENA 

A2=((ALPH1 * ALPH5HALPH0*ALPH3»/DENA 

TBULK = (l./70.)*((17.*Al)+(3.*A2)) 

C0NST=1./(16.*(AL1L*AL4L-AL2L*AL3L)) 

all=(ll.*al21-16.*al41)*CONST 

A2L=(16.*AL3L-ll.*ALlL)*CONST 

TBULKL=(1/70.)*(17.*A1L+3.*A2L) 

WRITE (1,19) TW,P,L,-TBULK,-TBULKL 
WRITE (2,20) L.-TBULKL ,-TBULK 
WRITE (3,21) L,- TBULK 
6 CONTINUE 
5 CONTINUE 
4 CONTINUE 

writc(*,*) etac,etar,eta 

19 FORMAT (1X,F7.2,2(3X,F6.2),2(3X ) E10.4)) 

20 FORMAT (3X,F6.2^(3X310.4)) 

21 FORMAT (3X,F6.2,3X,E10.4) 

11 FORMAT (4X, ’TW’ ,8X, ’P ’ ,6X,*L\9X, ’TBULK’ ^X.TBULKL’) 

STOP 
END 

C — — 

FUNCTION F10(U) 

COMMON F 

DEN=(F*((U**2.)+(2.*U)+2.)+U)*(U+(2.*F)) 

AUD=(F*((U**2-)+(4.*U*F)+(4. , F)))/DEN 

F10=AUD 

RETURN 

END 

FUNCTION F11(U) 
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COMMON F 

DEN=(F*((U* *2.)+<Z *U)+2.)+U)*(U+(2. *F)) 

AUD=(F*((U**2.)+(4.*U*F)+(4. *F)))/DEN 

F11=AUD*U 

RETURN 

END 

FUNCTION F12(U) 

COMMON F 

DEN=(F*((U* *2.)+(Z*U)+2.)+U)*(U+(Z *F)) 

AUD=(F*((U**2.)+(4.*U*F)+(4.*F)))/DEN 

F12=AUD*(U**2.) 

RETURN 

END 

FUNCTION F13(U) 

COMMON F 

DEN=(F*((U* *Z)+(2.*U)+Z)+U)*(U+(2 *F)) 
AUD=(F*((U**2.)+{4.*U*F)+(4. *F)))/DEN 
F13=AUD*(U**3.) 

RETURN 

END 

FUNCTION F14(U) 

COMMON F 

DEN=(F*((U* *2.)+(2.*U)+2.)+U)*(U+(2. *F)) 
AUD=(F*((U* *2.)+(4. *U*F)+(4. *F)))/DEN 
F14=AUD*(U**4.) 

RETURN 

END 


189 



NONGRAY RESULTS FOR NO 


TW P L TBULK (NLTE) TBULKL (NLTE) 


300.00 0.10 0.10 0.2429E+00 0.2429E+00 

300.00 0.10 0.50 0.2429E+00 0.2428E+00 

300.00 0.10 1.00 0.2429E+00 0.2427E+00 

300.00 0.10 5.00 0.2428E+00 0.2413E+00 

300.00 0.10 10.00 0.2428E+00 0.2386E+00 

300.00 0.10 20.00 0.2427E+00 0.2307E+00 

300.00 0.10 50.00 0.2416E+00 0.2010E+00 

300.00 0.10 75.00 0.2401E+00 0.1776E+00 

300.00 0.10 100.00 0.2381E+00 0.1576E+00 

300.00 1.00 0.10 0.2429E+00 0.2428E+00 

300.00 1.00 0.50 0.2428E+00 0.2425E+00 

300.00 1.00 1.00 0.2428E+00 0.2419E+00 

300.00 1.00 5.00 0.2418E+00 0.2350E+00 

300.00 1.00 10.00 0.2390E+00 0.2258E+00 

300.00 1.00 20.00 0.230 1E+00 0.2089E+00 

300.00 1.00 50.00 0.1961E+00 0.1698E+00 

300.00 1.00 75.00 0.1703E+00 0.1469E+00 

300.00 1.00 100.00 0.1491E+00 0.1295E+00 

300.00 5.00 0.10 0.2428E+00 0.2428E+00 

300.00 5.00 0.50 0.2426E+00 0.2420E+00 

300.00 5.00 1.00 0.2421E+00 0.2409E+00 

300.00 5.00 5.00 0.2349E+00 0.2323E+00 

300.00 5.00 10.00 0.225 1E+00 0.2224E+00 

300.00 5.00 20.00 0.2074E+00 0.2051E+00 

300.00 5.00 50.00 0.1679E+00 0.1666E+00 

300.00 5.00 75.00 0.1451E+00 0.1442E+00 

300.00 5.00 100.00 0.1279E+00 0.1273E+00 

300.00 10.00 0.10 0.2428E+00 0.2427E+00 

300.00 10.00 0.50 0.2423E+00 0.2418E+00 

300.00 10.00 1.00 0.2413E+00 0.2406E+00 

300.00 10.00 5.00 0.2327E+00 0.2319E+00 

300.00 10.00 10.00 0.2228E+00 0.2221E+00 

300.00 10.00 20.00 0.2053E+00 0.2048E+00 

300.00 10.00 50.00 0.1666E+00 0.1663E+00 

300.00 10.00 75.00 0.1442E+00 0.1440E+00 

300.00 10.00 100.00 0.1273E+00 0.1272E+00 

500.00 0.10 0.10 0.2429E+00 0.2428E+00 

500.00 0.10 0.50 0.2428E+00 0.2426E+00 

500.00 0.10 1.00 0.2427E+00 0.2419E+00 

500.00 0.10 5.00 0.2405E+00 0.2339E+00 

500.00 0.10 10.00 0.2348E+00 0.2203E+00 

500.00 0.10 20.00 0.2166E+00 0.1877E+00 

500.00 0.10 50.00 0.1483E+00 0.1074E+00 

500.00 0.10 75.00 0.1054E+00 0.7215E-01 
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500.00 

0.10 

100.00 

0.7741E-01 

0.5235E-01 

500.00 

1.00 

0.10 

0.2428E+00 

0.2427E+00 

500.00 

1.00 

0.50 

0.2416E+00 

0.2407E+00 

500.00 

1.00 

1.00 

0.2387E+00 

0.2365E+00 

500.00 

1.00 

5.00 

0.1999E+00 

0.1927E+00 

500.00 

1.00 

10.00 

0.1558E+00 

0.1490E+00 

500.00 

1.00 

20.00 

0.1037E+00 

0.9970E-01 

500.00 

1.00 

50.00 

i-* 

o 

*0 

o 

0.4905E-01 

500.00 

1.00 

75.00 

0.3494E-01 

0.3439E-01 

500.00 

1.00 

100.00 

0.2680E-01 

0.2647E-01 

500.00 

5.00 

0.10 

0.2424E+00 

0.2423E+00 

500.00 

5.00 

030 

0.2366E+00 

0.2360E+00 

500.00 

5.00 

1.00 

0.2276E+00 

0.2267E+00 

500.00 

5.00 

5.00 

0.1694E+00 

0.1686E+00 

500.00 

5.00 

10.00 

0.1281E+00 

0.1277E+00 

500.00 

5.00 

20.00 

0.8663E-01 

0.8647E-01 

500.00 

5.00 

50.00 

0.4450E-01 

0.4446E-01 

500.00 

5.00 

75.00 

0.3181E-01 

0.3179E-01 

500.00 

5.00 

100.00 

0.2478E-01 

0.2477E-01 

500.00 

10.00 

0.10 

0.2420E+00 

0.2419E+00 

500.00 

10.00 

0.50 

0.2340E+00 

0.2337E+00 

500.00 

10.00 

1.00 

0.2236E+00 

0.2233E+00 

500.00 

10.00 

5.00 

0.165 2E+00 

0.1650E+00 

500.00 

10.00 

10.00 

0.1253E+00 

0.1252E+00 

500.00 

10.00 

20.00 

0.8520E-01 

0.8516E-01 

500.00 

10.00 

50.00 

0.4406E-01 

0.4406E-01 

500.00 

10.00 

75.00 

0.3157E-01 

0.3157E-01 

500.00 

10.00 

100.00 

0.2463E-01 

0.2463E-01 

1000.00 

0.10 

0.10 

0.2428E+00 

0.2428E+00 

1000.00 

0.10 

0.50 

0.2425E+00 

0.2425E+00 

1000.00 

0.10 

1.00 

0.2418E+00 

0.2416E+00 

1000.00 

0.10 

5.00 

0.2297E+00 

0.2290E+00 

1000.00 

0.10 

10.00 

0.2118E+00 

0.2108E+00 

1000.00 

0.10 

20.00 

0.1762E+00 

0.1751E+00 

1000.00 

0.10 

50.00 

0.9652E-01 

0.9572E-01 

1000.00 

0.10 

75.00 

0.6162E-01 

0.6108E-01 

1000.00 

0.10 

100.00 

0.4234E-01 

0.4196E-01 

1000.00 

1.00 

0.10 

0.2427E+00 

0.2427E+00 

1000.00 

1.00 

0.50 

0.2399E+00 

0.2399E+00 

1000.00 

1.00 

1.00 

0.2338E+00 

0.2338E+00 

1000.00 

1.00 

5.00 

0.1686E+00 

0.1684E+00 

1000.00 

1.00 

10.00 

0.1116E+00 

0.1114E+00 

1000.00 

1.00 

20.00 

0.6075E-01 

0.6067E-01 

1000.00 

1.00 

50.00 

0.2337E-01 

0.2335E-01 

1000.00 

1.00 

75.00 

0.1508E-01 

0.1507E-01 

1000.00 

1.00 

100.00 

0.1105E-01 

0.1104E-01 

1000.00 

5.00 

0.10 

0.2421E+00 

0.2421E+00 

1000.00 

5.00 

0.50 

0.231 7E+00 

0.2317E+00 

1000.00 

5.00 

1.00 

0.2136E+00 

0.2136E+00 
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1000.00 5.00 5.00 0.1163E+00 0.U62E+00 

1000.00 5.00 10.00 0.7215E-01 0.7214E-01 

1000.00 5.00 20.00 0.4096E-01 0.4095E-01 

1000.00 5.00 50.00 0.1786E-01 0.1786E-01 

1000.00 5.00 75.00 0.1215E-01 0.1215E-01 

1000.00 5.00 100.00 0.9207E-02 0.9206E-02 

1000.00 10.00 0.10 0.2415E+00 0.2415E+00 

1000.00 10.00 0.50 0.2255E+00 0.2255E+00 

1000.00 10.00 1.00 0.2026E+00 0.2025E+00 

1000.00 10.00 5.00 0.1062E+00 0.1062E+00 

1000.00 10.00 10.00 0.6688E-01 0.6687E-01 

1000.00 10.00 20.00 0.3876E-01 03875E-01 

1000.00 10.00 50.00 0.1730E-01 0.1730E-01 

1000.00 10.00 75.00 0.1186E-01 0.1186E-01 

1000.00 10.00 100.00 0.9024E-02 0.9024E-02 

2000.00 0.10 0.10 0.2429E+00 0.2429E+00 

2000.00 0.10 0.50 0.2427E+00 0.2427E+00 

2000.00 0.10 1.00 0.2423E+00 0.2423E+00 

2000.00 0.10 5.00 0.2349E+00 0.2349E+00 

2000.00 0.10 10.00 0.2228E+00 0.2228E+00 

2000.00 0.10 20.00 0.1993E+00 0.1992E+00 

2000.00 0.10 50.00 0.1420E+00 0.1419E+00 

2000.00 0.10 75.00 0.1070E+00 0.1070E+00 

2000.00 0.10 100.00 0.8165E-01 0.8163E-01 

2000.00 1.00 0.10 0.2428E+00 0.2428E+00 

2000.00 1.00 0.50 0.2415E+00 0.2415E+00 

2000.00 1.00 1.00 0.2384E+00 0.2384E+00 

2000.00 1.00 5.00 0.1958E+00 0.1958E+00 

2000.00 1.00 10.00 0.1460E+00 0.1460E+00 

2000.00 1.00 20.00 0.8603E-01 0.8602E-01 

2000.00 1.00 50.00 0.3156E-01 0.3156E-01 

2000.00 1.00 75.00 0.1932E-01 0.1932E-01 

2000.00 1.00 100.00 0.1362E-01 0.1362E-01 

2000.00 5.00 0.10 0.2426E+00 0.2426E+00 

2000.00 5.00 0.50 0.2372E+00 0.2372E+00 

2000.00 5.00 1.00 0.2256E+00 0.2256E+00 

2000.00 5.00 5.00 0.1337E+00 0.1337E+00 

2000.00 5.00 10.00 0.8147E-01 0.8146E-01 

2000.00 5.00 20.00 0.4419E-01 0.4419E-01 

2000.00 5.00 50.00 0.1815E-01 0.1815E-01 

2000.00 5.00 75.00 0.1209E-01 0.1209E-01 

2000.00 5.00 100.00 0.9046E-02 0.9046E-02 

2000.00 10.00 0.10 0.2423E+00 0.2423E+00 

2000.00 10.00 0.50 0.2329E+00 0.2329E+00 

2000.00 10.00 1.00 0.2150E+00 0.2150E+00 

2000.00 10.00 5.00 0.1141E+00 0.1141E+00 

2000.00 10.00 10.00 0.6943E-01 0.6943E-01 

2000.00 10.00 20.00 0.3881E-01 0.3881E-01 

2000.00 10.00 50.00 0.1671E-O1 0.1671Er-01 
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2000.00 10.00 75.00 0.1133E-01 0.1133E-01 
2000.00 10.00 100.00 0.8569E-02 0.8569E-02 
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noon 


THIS PROGRAM INVESTIGATES LIE and NLIE EFFECT IN OH (NONGRAY CASE) 
THIS PROGRAM IS WRITTEN BY MANOJ K. JHA IN OCTOBER 1992 


IMPLICIT DOUBLE PRECISION (A-H.O-Z) 
DOUBLE PRECISION IERR 
REALL.KFB 

EXTERNAL F10,F11,F12,F13,F14 
DIMENSION U(9),PRES(4),TEMP(4),EPS(2) 
COMMON F 
OPEN (lFILE=’outllca’) 

OPEN (2,FTLE=’nlp’) 

OPEN (3 JTLE=’lp’) 

DATAU/0.1,0.5,1.,5.,10.,20.,50.,75.,100./ 
DATA PRES/0.1,1.,5.,10./ 

DATA TEMP/300.,500.,1000.,2000./ 

WRITE (1,11) 
writc(2 > 13) 
write(2,*) 9,1 

13 fimnatC3V.’*V,Vy, ’tl^Kx/l’) 

writc(3,14) 
write(3,*) 9,1 

14 fonnat(’2 , ,/, , x , ,/, , t , ,/,/,i4,x, , l’) 

do 4 rr=i,4 

TW=TEMP(IT) 

DO 5 KK=1,4 
P=PRES(KK) 

DO 6 1=1,9 
L=U(I) 

TK1=TW**2. 

TK2=TW**0.5 

TK3=TW/273. 

HCK=1. 439257246 

TS=300./TW 

WNB=3570. 

C2B=HCK*WNB 

CCC=0.000053847734 

CCB=CCC*(WNB**4.) 

TB=C2B/TW 

TEB=EXP(TB) 

C1B=CCB/C2B 

PFB=C1B/(TEB-1.) 

DEV=TK1 *((TEB-1.)* *2.) 

PFDB=(CCB*TEB)/DEV 

AKl=(TW/300.)**0.5 

AK2=(300./TW)**1.5 

AZ=117.*AK1 

IF (TW.EQ.300.) THEN 

KFB=4879.71 
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ELSEIF (TW.EQ.500.) THEN 
KFB=6993.13 

ELSEIF (TW.EQ.1000.) THEN 
KFB=11504.56 

ELSEIF (TW.EQ.2000.)THEN 

KFB=20276.33 

ENDIF 

AMB=H/KFB 

OMEG=3570. 

TX=-<HCK/TW) 

TXl=TX*OMEG 

ETX1=EXP(TX1) 

C1=1.-ETX1 

S=110.*TS 

CZ=S/AZ 

PL=P*L 

UZ=CZ*PL 

C 

C We assume BS and PE as defined for NO 

C 

c PHI1=(15.15+(0.22*((TW/100.)**1.5)))*C1 

c deli=((phii**2.)/aki)*o.ooi 

c BS=0.314*DEL1 
c PE=(1.1*P)**0.8 
PE=P**0.65 
BS=0. 104211 7/akl 
BETA=BS*PE 

F=2.94*(1.-EXP(-(2.6*BETA))) 

EPS(2)=l.E-04 
EPS(l)=l.E-04 
XI =0. 

X2=(3./8.)*UZ 

Y1=1.5*UZ 

Y2=3.*X2 

CALL QDAGS (F10,X1 ) Y1,EPS(2),EPS(1),R0,IERR) 
CALL QDAGS (Fll t Xl,Yl,EPS(2),EPS(l),Rl > IERR) 
CALL QDAGS (F 1 2,X 1 , Y1 ,EPS(2),EPS(1 ),R2,IERR) 
CALL QDAGS (F13,X1,Y1,EPS(2),EPS(1) > R3,IERR) 
CALL QDAGS (F14 r Xl,Yl,EPS(2),EPS(l) > R4,IERR) 
CALL QDAGS (F10,X2,Y2 > EPS(2),EPS(1) > S1,IERR) 
CALL QDAGS (F11,X1,X2,EPS(2),EPS(1),S2,IERR) 
CALL QDAGS (F11 ( X1,Y2,EPS(2) ) EPS(1),S3,IERR) 
CALL QDAGS (F12,X2,Y2,EPS(2),EPS(1),S4,IERR) 
CALL QDAGS (F13 T Xl r X2 > EPS(2) ) EPS(l),S5 > IERR) 
CALL QDAGS (F13,X1,Y2,EPS(2),EPS(1),S6,IERR) 
CALL QDAGS (F14,X2,Y2,EPS(2),EPS(1),S7,IERR) 
H=AZ*PFDB 
AM=(H*L)/KFB 
CU=2./(3.*UZ) 
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BU=1./CU 

BR1A=(CU*R1)-(2.*(CU**3.)*R3)+((CU**4.)*R4) 

BR1B=((CU**2.)*R2)-(CXJ*R1) 

ETCl=1.16*l£-3*((9.)**05)*(2700.**(4./3.» 

ETC2-TW* *(-l./3.)-0.015 *((9.)* *0.25) 

ETC3=ETC1 *ETC2-18.42 
ETC4=EXP(ETC3) 

ETAC=ETC4/P 
c ETCl=(8.5)**(l./4.) 
c ETC2=0.015*ETC1 
c ETC3=TW**(-l./3.) 
c ETC4=ETC3-ETC2 
c ETC5=175.*ETC4 
c ETC6=(ETC5-18.42) 
c ETC7 =EXP(ETC6) 

c ETAC=ETC7/P 

ETARl=8.*3.14*(3570.**(2.))*4.08*(l.E-12)*s*tw 

ETAR=1./ETAR1 

ETA=ETAC/ETAR 

SUMA=H*BR1A 

AL1L=1.+((L/KFB)*SUMA) 

ALPHl=ALlL-((9./2.)*ETA*CU*BRlB) 

BR2A=((CU* *2.)*R2)-(2. *(CU* *3.)*R3)+((CU**4.)*R4) 
BR2B=R0-(6.*CU*R1)+(6.*(CU**2.)*R2) 

SUMB=H*BR2A 

AL2L=(L/KFB)*SUMB 

ALPH2=AL2L-((3./4.)*ETA*CU*BR2B) 

ALPHO = (9./2.)*ETA*(CU**2.)*(CU*R2-Rl)-l. 

BR3A=((57./256.)*S1)+((11./16.)*CU*(S2+S3)) 

*-((9./8.)*(CU**2.)*S4H(CU**3.)*(S5+S6))+((CU**4.)*S7) 

BR3B=((9./4.)*CU*S1)+(6.*(CU**2.)*(S2+S3)) 

*-(12*(CU**3.)*S4) 

SUMC=H*BR3A 

AL3L=((L/KFB)*SUMC)+(11./16.) 

ALPH3 =AL3L+((3./8.)*ETA*BR3B) 

BR4A=((9./256.)*Sl)+((3./16.)*CU*(S2+S3)) 

*-{(l./8.)*(CU**2-)*S4)-((CU**3.)*(S5+S6))+((CU**4.)*S7) 

BR4B=((1./4.)*CU*S1)+(6.*(CU**2.)*(S2+S3))-(12.*(CU**3.)*S4) 

SUMD=H*BR4A 

AL4L=((L/KFB)*SUMD)+(3./16.) 

ALPH4 =AL4L+((3./8.)*ETA*BR4B) 

BRK5=(3./16.)*(CU*S1)+(1./2.)*(CU**2.)*(S2+S3HCU**3.)*S4 
ALPH5 = -«9./2.)*ETA*BRK5+(ll./16.)) 

DENA = (ALPH1*ALPH4)-(ALPH2*ALPH3) 

Al=(( ALPHO* ALPH4)-(ALPH2*ALPH5))/DENA 
A2=((ALPH1 *ALPH5HALPH0*ALPH3))/DENA 
TBULK = (l./70.)*((17.*Al)+(3.*A2)) 
CONST=l./(16.*(ALlL*AL4L-AL2L*AL3L)) 
alL=(ll.*aL2L-16.*aL4L)*CONST 
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A2L=(16.*AL3L-11.*AL1L)*C0NST 

TBULKL=(1/70.)*(17.*A1L+3.*A2L) 

WRITE (1,19) TW,P,U-TBULK,-TBULKL 
WRITE (2,20) L.-TBULKL-TBULK 
WRITE (3,21) L.-TBULK 
6 CONTINUE 
5 CONTINUE 
4 CONTINUE 

writc(*,*) etac,etar,eta 

19 FORMAT (1X,F7.2,2(3X,F6.2),2(3X,E10.4)) 

20 FORMAT (3X,F6.2,2(3X,E10.4)) 

21 FORMAT (3X,F6.2,3X,E10.4) 

11 FORMAT (4X, TW%8X,^6X,^9X,TBUIJC\9X,TBULKL’) 
STOP 
END 

C — 

FUNCTION F10(U) 

COMMON F 

DEN=(F*((U* *2.)+(2.*U)+2.)+U)*(U+(Z *F)) 

AUD=(F*((U**2.)+(4.*U*F)+(4.*F)))/DEN 

F10=AUD 

RETURN 

END 

FUNCTION F11(U) 

COMMON F 

DEN=(F*((U**2.)+(2.*U)+2.)+U)*(U+(2. *F)) 

AUD=(F*((U * *2.)+(4. *U*F)+(4. *F)))/DEN 

F11=AUD*U 

RETURN 

END 

FUNCTION F12(U) 

COMMON F 

DEN =(F* ((U * *2.)+(2. *U)+2.)+U) * (U+(2. *F)) 

AUD=(F*((U* *2.)+(4.»U*F)+(4. *F)))/DEN 
F12=AUD*(U**2.) 

RETURN 

END 

FUNCTION F13(U) 

COMMON F 

DEN=(F*((U**2.)+(2.*U)+2.)+U)*(U+(2. *F)) 

AUD=(F*((U**2.)+(4.*U*F)+(4.*F)))/DEN 

F13=AUD*(U**3.) 

RETURN 

END 

FUNCTION F14(U) 

COMMON F 

DEN=(F*((U**2.)+(2.*U)+2.)+U)*(U+(2.*F)) 
AUD=(F*((U**2.)+(4. *U*F)+(4. *F)))/DEN 
F14=AUD*(U**4.) 
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RETURN 

END 
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NONGRAY RESULTS FOR OH 


TW P 


300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

300.00 

500.00 
500.00 
500.00 
500.00 
500.00 
500.00 
500.00 
500.00 


L TBULK (NLTE) TBULKL (LTE) 


0.10 

0.10 

0.10 

050 

0.10 

1.00 

0.10 

5.00 

0.10 

10.00 

0.10 

20.00 

0.10 

50.00 

0.10 

75.00 

0.10 

100.00 

1.00 

0.10 

1.00 

050 

1.00 

1.00 

1.00 

5.00 

1.00 

10.00 

1.00 

20.00 

1.00 

50.00 

1.00 

75.00 

1.00 

100.00 

5.00 

0.10 

5.00 

050 

5.00 

1.00 

5.00 

5.00 

5.00 

10.00 

5.00 

20.00 

5.00 

50.00 

5.00 

75.00 

5.00 

100.00 

10.00 

0.10 

10.00 

0.50 

10.00 

1.00 

10.00 

5.00 

10.00 

10.00 

10.00 

20.00 

10.00 

50.00 

10.00 

75.00 

10.00 

100.00 

0.10 

0.10 

0.10 

050 

0.10 

1.00 

0.10 

5.00 

0.10 

10.00 

0.10 

20.00 

0.10 

50.00 

0.10 

75.00 


0.2429E+00 
0.2429E+00 
0.2429E+00 
0.2429E+00 
0.2429E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2427E+00 
0.2429E+00 
0.2429E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2427E+00 
0.2423E+00 
0.2419E+00 
0.2416E+00 
0.2429E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2427E+00 
0.2426E+00 
0.2421E+00 
0.241 7E+00 
0.241 3E+00 
0.2429E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2427E+00 
0.2425E+00 
0.2421E+00 
0.2417E+00 
0.2413E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2423E+00 
0.241 OE+OO 
0.2373E+00 
0.221 2E+00 
0.2043E+00 


0.2429E+00 
0.2429E+00 
0.2429E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2427E+00 
0.2425E+00 
0.2424E+00 
0.2429E+00 
0.2429E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2426E+00 
0.2422E+00 
0.2418E+00 
0.2415E+00 
0.2429E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2427E+00 
0.2426E+00 
0.2421 E+00 
0.241 7E+00 
0.2413E+00 
0.2429E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2427E+00 
0.2425E+00 
0.2421E+00 
0.2417E+00 
0.2413E+00 
0.2429E+00 
0.2428E+00 
0.2428E+00 
0.2418E+00 
0.2399E+00 
0.2353E+00 
0.2170E+00 
0.1987E+00 


PREGfcDING PAGE BLANK NOT FILMED 
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500.00 0.10 100.00 0.1864E+00 0.1799E+00 

500.00 1.00 0.10 0.2429E+00 0.2428E+00 

500.00 1.00 0.50 0.2427E+00 0.2427E+00 

500.00 1.00 1.00 0.2423E+00 0.2423E+00 

500.00 1.00 5.00 0.2359E+00 0.2355E+00 

500.00 1.00 10.00 0.2246E+00 0.2239E+00 

500.00 1.00 20.00 0.2006E+00 0.1997E+00 

500.00 1.00 50.00 0.1448E+00 0.1441E+00 

500.00 1.00 75.00 0.1158E+00 0.1153E+00 

500.00 1.00 100.00 0.9615E-01 0.9576E-01 

500.00 5.00 0.10 0.2428E+00 0.2428E+00 

500.00 5.00 0.50 0.2422E+00 0.2422E+00 

500.00 5.00 1.00 0.2408E+00 0.2407E+00 

500.00 5.00 5.00 0.2255E+00 0.2254E+00 

500.00 5.00 10.00 0.2073B+00 0.2072E+00 

500.00 5.00 20.00 0.1782E+00 0.1781E+00 

500.00 5.00 50.00 0.125 6E+00 0.1255E+00 

500.00 5.00 75.00 0.1010E+00 0.1010E+00 

500.00 5.00 100.00 0.8468E-01 0.8466E-01 

500.00 10.00 0.10 0.2428E+00 0.2428E+00 

500.00 10.00 0.50 0.2417E+00 0.2417E+00 

500.00 10.00 1.00 0.2397E+00 0.2397E+00 

500.00 10.00 5.00 0.2223E+00 0.2223E+00 

500.00 10.00 10.00 0.2Q37E+00 0.2036E+00 

500.00 10.00 20.00 0.1748E+00 0.1748E+00 

500.00 10.00 50.00 0.1235E+00 0.1235E+00 

500.00 10.00 75.00 0.9959E-01 0.9959E-01 

500.00 10.00 100.00 0.8361E-01 0.8360E-01 

1000.00 0.10 0.10 0.2428E+00 0.2428E+00 

1000.00 0.10 0.50 0.2426E+00 0.2426E+00 

1000.00 0.10 1.00 0.2419E+00 0.2419E+00 

1000.00 0.10 5.00 0.2262E+00 0.2256E+00 

1000.00 0.10 10.00 0.1985E+00 0.1975E+00 

1000.00 0.10 20.00 0.1512E+00 0.1501E+00 

1000.00 0.10 50.00 0.7990E-01 0.7940E-01 

1000.00 0.10 75.00 0.5358E-01 0.5329E-01 

1000.00 0.10 100.00 0.3841E-01 0.3821E-01 

1000.00 1.00 0.10 0.2427E+00 0.2427E+00 

1000.00 1.00 0.50 0.2404E+00 0.2404E+00 

1000.00 1.00 1.00 0.2342E+00 0.2342E+00 

1000.00 1.00 5.00 0.1547E+00 0.1545E+00 

1000.00 1.00 10.00 0.9228E-01 0.9217E-01 

1000.00 1.00 20.00 0.4460E-01 0.4455E-01 

1000.00 1.00 50.00 0.1441E-01 0.1440E-01 

1000.00 1.00 75.00 0.8609E-02 0.8605E-02 

1000.00 1.00 100.00 0.5995E-02 0.5992E-02 

1000.00 5.00 0.10 0.2423E+00 0.2423E+00 

1000.00 5.00 0.50 0.2321E+00 0.2321E+00 

1000.00 5.00 1.00 0.2096E+00 0.2096E+00 
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1000.00 

5.00 

5.00 

1000.00 

5.00 

10.00 

1000.00 

5.00 

20.00 

1000.00 

5.00 

50.00 

1000.00 

5.00 

75.00 

1000.00 

5.00 

100.00 

1000.00 

10.00 

0.10 

1000.00 

10.00 

0.50 

1000.00 

10.00 

1.00 

1000.00 

10.00 

5.00 

1000.00 

10.00 

10.00 

1000.00 

10.00 

20.00 

1000.00 

10.00 

50.00 

1000.00 

10.00 

75.00 

1000.00 

10.00 

100.00 

2000.00 

0.10 

0.10 

2000.00 

0.10 

0.50 

2000.00 

0.10 

1.00 

2000.00 

0.10 

5.00 

2000.00 

0.10 

10.00 

2000.00 

0.10 

20.00 

2000.00 

0.10 

50.00 

2000.00 

0.10 

75.00 

2000.00 

0.10 

100.00 

2000.00 

1.00 

0.10 

2000.00 

1.00 

0.50 

2000.00 

1.00 

1.00 

2000.00 

1.00 

5.00 

2000.00 

1.00 

10.00 

2000.00 

1.00 

20.00 

2000.00 

1.00 

50.00 

2000.00 

1.00 

75.00 

2000.00 

1.00 

100.00 

2000.00 

5.00 

0.10 

2000.00 

5.00 

0.50 

2000.00 

5.00 

1.00 

2000.00 

5.00 

5.00 

2000.00 

5.00 

10.00 

2000.00 

5.00 

20.00 

2000.00 

5.00 

50.00 

2000.00 

5.00 

75.00 

2000.00 

5.00 

100.00 

2000.00 

10.00 

0.10 

2000.00 

10.00 

0.50 

2000.00 

10.00 

1.00 

2000.00 

10.00 

5.00 

2000.00 

10.00 

10.00 

2000.00 

10.00 

20.00 

2000.00 

10.00 

50.00 


0.8363E-01 0.8361E-01 
0.4284E-01 0.4283E-01 
0.2094E-01 0.2093E-01 
0.8028E-02 0.8028E-02 
0.5265E-02 0.5264E-02 
0.3908E-02 03908E-02 
0.2418E+00 0.2418E+00 
0.223 7E+00 0.2237E+00 
0.1905E+00 0.1905E+00 
0.6669E-01 0.6668E-01 
0.3526E-01 03526E-01 
0.1810E-01 0.1810E-01 
0.735 IE-02 0.735 IE-02 
0.4917E-02 0.4917E-02 
0.3694E-02 0.3694E-02 
0.2428E+00 0.2428E+00 
0.2426E+00 0.2426E+00 
0.241 7E+00 0.2417E+00 
0.2212E+00 0.2212E+00 
0.1832E+00 0.183 1E+00 
0.1232E+00 0.1231E+00 
0.5555E-01 0.5551E-01 
0.370 IE-01 0.3698E-01 
0.2721E-01 0.2720E-01 
0.2427E+00 0.2427E+00 
0.2401E+00 0.2401E+00 
0.2327E+00 0.2327E+00 
0.1353E+00 0.1353E+00 
0.7122E-01 0.7122E-01 
0.3131E-01 0.3131E-01 
0.9162E-02 0.9162E-02 
0.5161E-02 0.5161E-02 
0.3423E-02 0.3423E-02 
0.2423E+00 0.2423E+00 
0.2302E+00 0.2302E+00 
0.2021E+00 0.2021E+00 
05888E-01 0.5888E-01 
0.2506E-01 0.2506E-01 
0.1043E-01 0.1043E-01 
0.3394E-02 0.3394E-02 
0.2108E-02 0.2108E-02 
0.1515E-02 0.1515E-02 
0.2417E+00 0.241 7E+00 
0.2195E+00 0.2195E+00 
0.1762E+00 0.1762E+00 
0.3993E-01 0.3993E-01 
0.1742E-01 0.1742E-01 
0.7739E-02 0.7739E-02 
0.2778E-02 0.2778E-02 
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2000.00 10.00 75.00 0.1793E-02 0.1793E-02 
2000.00 10.00 100.00 0.1320E-02 0.1320E-02 
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C THIS PROGRAM SOLVES FOR BULK TEMPERATURE FOR CO_2 
C UNDER NONGRAY ASSUMPTION. THE PROGRAM CAN CALCULATE BULK 
C TEMPERATURE UNDER BOTH LIE AND NLTE CONDITIONS, 
c IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

DOUBLE PRECISION IERR 
REALL.KFB 

EXTERNAL F101,F102,F103, Fill, F112,F113,F121,F122J : '123,F131,F132, 

*F133,F141,F142,F143 

DIMENSION U(9),PRES(4),TEMP(4),EPS(3) 

COMMON F1.F2J3 
OPEN(6,Gle=’outputl ’) 
open(7,file= ’nip ’) 
open(8,file=’lp’) 

DATA U/0.1, 0.5,1.0,5.0,10.0,20.0,50.0, 75., 100.0/ 

DATA PRES/0.1,1.,5.,10.0/ 

DATA TEMP/300.,500.,1000.0,2000.0/ 

WRITE(6,111) 
write(7,13) 
write(7,*) 9,1 

13 format(’37,’xV,’tV, ’tl’,/,i4,x,T’) 

write(8,14) 
write(8,*) 9,1 

14 format(’27, , x7,’t7,/,i4,x,’l’) 

DO 44 IT = 1,4 

TW = TEMP(IT) 

DO 55 KK = 1,4 
P = PRES(KK) 

DO 66 I = 1, 9 
L= U(I) 

C 

C CALCULATION OF PLANK’S FUNCTION IT’S DERIVATIVES 

C 

C WNB BAND CENTER (1/CM) 

C HCK CONSTANT (K CM) 

C CCC C1*C2(ERG-K~CM**3?SEC) 

C PFDBI PLANCK FUNCTION DERIVATIVE FOR I BAND 

C 

CESS =TW**2 
STU = TW**0.5 
SNT = TW/273. 

HCK = 1.439257246 
AK1 = (TW/300.)**0.5 
TS = 300./TW 

C 

C SPECTROSCOPIC PROPERTIES OF C02 

C HERE WE HAVE CONSIDERED ONLY THREE BANDS(15,4.3 & 2.7 MICRONS) 
C WNBI BAND CENTER (1/CM) 

C 

WNBI = 667. 
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WNB2 = 2347. 

WNB3 - 3716. 

C2B1 = HCK*WNB1 
C2B2 ■= HCK*WNB2 
C2B3 ■ HCK*WNB3 
CCC ■ 0.000053847734 
CCB1 = CCC*(WNB1**4) 

CCB2 = CCC*(WNB2* *4) 

CCB3 = CCC*(WNB3**4) 

TB1 = C2B1/TW 
TB2 = C2B2/TW 
TB3 = C2B3/TW 
TEB1 = EXP(TB1) 

TEB2 = EXP(TB2) 

TEB3 = EXP(TB3) 

SNTB1 = CESS*((TEB1-1.)**2.) 

SNTB2 = CESS*((TEB2-1.)**2.) 

SNTB3 * CESS *((TEB3-1 .)* *2.) 

PFDB1 = (CCB1 •TEB1)/SNTB1 
PFDB2 = (CCB2*TEB2)/SNTB2 
PFDB3 = (CCB3 *TEB3)/SNTB3 

C BAND MODEL CORRELATIONS (TIEN & LOWDER WIDE BAND MODEL) 

C AZ1 AOI (1/CM) 

C CZSI COI**2(l/(ATM-CM)) 

C BSI B**2 (NON DIMENSIONAL) 

C OMGI WAVE NUMBER (1/CM) 

C SI INTEGRATED BAND TNTENSITY (1/(ATM CM* *2)) 



AK1 a (TW/300.)**0^ 

AK2 = (300./TW)**13 
AZ1 = 1.29*STU 
AZ2 = 1.15*STU 
AZ3 = 2.4*STU 

C— ‘ 

c DKF THERMAL CONDUCTIVITY (ERG/CM-SEC-K) 

C 

KFB = (1488.365171)*(SNT**1.23) 

AMB = H/KFB 
OMGI = 1351.0 
OMG2 = 667.0 
OMG3 a 2396.0 
TX =-{HCK/TW) 

TX1 = TX’OMGl 
TX2 = TX*OMG2 
TX3 = TX*OMG3 
ETX1 =EXP(TX1) 

ETX2 = EXP(TX2) 

ETX3 = EXP(TX3) 
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Cl = 1.0-ETX1 
C2 = 1.0-ETX2 
C3 = 1.0-ETX3 
BRKT = TX *(OMGl +OMG3) 

Pffl2 = (1.0- EXP(BRKI))/(C1 *C3) 

TS = 300.0/TW 

51 = 339.685 *TS 

52 = 2702.7 *TS 

53 = 71.497*TS*Pffl2 
CZS1 = S1/AZ1 
CZS2 = S2/AZ2 
CZS3 = S3/AZ3 

C 

C PL PRESSURE PATH LENGTH (ATM-CM) 

C 

PL = P* L 

UZ1 = CZS1*PL 

UZ2 = CZS2*PL 

UZ3 = CZS3*PL 

BS1 = 0.0841 *AK1 

BS2 = 0.32895 *AK1 

PHI3 = 1.0+0.053*((TW/100.0)**1.5) 

DEL2 = (PHI3**2.0)/(PHI2 *AK1) 

BS3 = 0.1112*DEL2 


C PEI EFFECTIVE PRESSURE FOR EACH BAND (NON DIMENSIONAL) 

C 

PEI = (1.3*P)**0.7 
PE2 = (1.3*P)**0.8 
PE3 = (1.3*P)**0.65 

C 

C BETAI LINE STRUCTURE PARAMETR 

C 

BETAI = BSl’PEl 
BETA2 = BS2*PE2 
BETA3 = BS3*PE3 

C 

C CORRELATION FOR EACH BAND 

C 

FI = 2.94 *(1 .0- EXP(-(2.6 *BETA1 ))) 

F2 = 2.94*(1.0- EXP(-(2.6*BETA2))) 

F3 = 2.94*(1.0- EXP(-(2.6*BETA3))) 

C 

C NUMERICAL INTEGRATION 

C 

EPS(2) = IE-04 
EPS(l) = IE-04 
EP = l.E-5 
XI = 0.0 
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X21 - (3./8.)*UZl 
X22 = (3./8.)*UZ2 
X23*(378.)*UZ3 
Yll = 1.5*UZ1 
Y12 » 1S*UZ2 
Y13 * 1.5*UZ3 
Y21 » 3.0*X21 
Y22 = 3.0*X22 
Y23 = 3.0*X23 

CALL QDAGS (F101,X1,Y11,EPS(2)£PS(1),R01,IERR) 
CALL QDAGS (F102^1,Y12£PS(2),EPS(1),R02JERR) 
CALL QDAGS (F103,X1,Y13,EPS(2),EPS(1),R03,IERR) 
CALL QDAGS(F111^C1 > Y11,EPS(2),EPS(1) > R11JERR) 
CALL QDAGS(F112,X1 > Y12,EPS(2),EPS(1),R12,IERR) 
CALL QDAGS(F113,X1,Y13,EPS(2),EPS(1),R13,IERR) 
CALL QDAGS(F121^C1,Y11 ? EPS(2),EPS(1),R21^ERR) 
CALL QDAGS(F122*1,Y123PS(2),EPS(1),R22JERR) 
CALL QDAGS{F123,X1,Y 13JEPS(2),EPS(1),R23,IERR) 
CALL QDAGS(F131^Q,Yll r EPS(2),EPS(l),R31,IERR) 

CALL QDAGS(F132pU,Y12,EPS(2),EPS(l),R32,ffiRR) 

CALL QDAGS(F133,X1,Y13,EPS(2),EPS(1),R33,IERR) 
CALL QDAGS(F141,X1,Y11,EPS(2),EPS(1),R41,IERR) 
CALL QDAGS(F142^1,Y123PS(2)^PS(1),R424ERR) 
CALL QDAGS(F143,X1,Y13 I EPS(2),EPS(1),R43,IERR) 
CALL QDAGS(F101,X21,Y21,EPS(2),EPS(1),S11,IERR) 
CALL QDAGS(F102 > X22,Y22,EPS(2),EPS(1) ( S12JERR) 
CALL QDAGS(F103^23,Y23 ( EPS(2) ) EPS(1) ) S13JERR) 

CALL QDAGS(F1 1 1 ,X1 ,X21 ,EPS(2),EPS{1 ),S21 ,IERR) 
CALL QDAGS(F112 > X1,X22,EPS(2),EPS(1),S22,IERR) 
CALL QDAGS(F113,X1,X23,EPS(2),EPS(1),S23 > IERR) 
CALL QDAGS(F111^C1,Y21,EPS(2),EPS(1),S31,IERR) 
CALL QDAGS(F112^1,Y22,EPS(2)^PS{1) ( S32JERR) 
CALL QDAGS(F113,X1,Y23,EPS(2),EPS(1),S33 ) IERR) 
CALL QDAGS(F121,X21,Y21,EPS(2),EPS(1),S41 > IERR) 
CALL QDAGS(F122^22,Y223PS(2)3PS(1),S424ERR) 
CALL QDAGS(F123^23,Y23^PS(2)3PS{1),S434ERR) 
CALL QDAGS(F131^1PC21^PS(2)3PS(1),S51 > IERR) 
CALL QDAGS(F132*1,X22£PS(2),EPS(1) > S52,IERR) 
CALL QDAGS(F133,X1,X23,EPS(2) ) EPS(1),S53,IERR) 
CALL QDAGS(F131^C1,Y21,EPS(2)JEPS(1) ) S614ERR) 
CALL QDAGS(F132pa,Y22^PS(2) > EPS(l) > S62JERR) 
CALL QDAGS(F133,X1,Y23,EPS(2),EPS(1) ) S63,IERR) 
CALL QDAGS(F141 f X21,Y21,EPS(2),EPS(l),S71 l JERR) 
CALL QDAGS(F142^22 > Y223PS(2)3PS(1),S724ERR) 
CALL QDAGS(F143,X23,Y23,EPS(2),EPS(1),S73,IERR) 
H1=AZ1 *PFDB1 
H2=AZ2*PFDB2 
H3=AZ3*PFDB3 
H=H1+H2+H3 
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AM=(H*L)/KFB 
CU1 = 2-/(3. *UZ1) 

CU2 = 2-/(3. *UZ2) 

CU3 = 2-/(3. *UZ3) 

BR1A1 = (CU 1 *Rll)-2. *(CU 1 * *3.)*R31+(CU1 * *4.)*R41 
BR1A2 = (CU2*R12)-2.*(CU2**3.)*R32+(CU2**4.)*R42 
BR1A3 = (CU3 *R13)-2. *(CU3 * *3.)*R33+(CU3 * *4.)*R43 
BR1B1=((CU1**2.)*R21)-(CU1*R11) 
BR1B2=((CU2**2.)*R22)-(CU2*R12) 
BR1B3=((CU3**Z)*R23)-(CU3*R13) 

ETC1 =((36.5*(TW* *(-l/3.)))+3.9) 

ETC2=EXP(ETCl)*(l.E-6) 

ETAC=ETC2/P 

ETR11=8.*3.14*(667.**(2.))*4.08*(1.E-12)*300.*339.685 

ETAR1=1./ETR11 

ETR1 2=8. *3. 14*(2347.**(2.))*4.08*(1.E-12)*300. *2702.7 
ETAR2=1./ETR12 

ETR13=8.*3.14*(3716.**(2.))*4.08*(l.E-12)*300.*71.497*Pffl2 

ETAR3=1./ETR13 

ETA11 =ETAC/ETAR1 

ETA12=ETAC/ETAR2 

ETA 1 3 =ETAC/ETAR3 

SUMA1 = H1*BR1A1 

SUMA2 = H2*BR1A2 

SUMA3 = H3*BR1A3 

SUMAL=SUMA1 +SUMA2+SUMA3 

AL1L = l.+(L/KFB)*SUMAL 

SUMAN1 =ETA11 *CU1 *BR1B1 

SUMAN2=ETA12*CU2*BR1B2 

SUMAN3=ETA13*CU3*BR1B3 

SUMAN=(9./2.)*(SUMAN1+SUMAN2+SUMAN3) 

ALPH1 = AL1 L-SUMAN 

BR2A1 = (CU1**2.)*R21-2.*(CU1**3.)*R31+(CU1**4.)*R41 
BR2A2 = (CU2**2.)*R22-2.*(CU2**3.)*R32+(CU2**4.)*R42 
BR2A3 = (CU3**2.)*R23-2.*(CU3**3.)*R33+(CU3**4.)*R43 
BR2B1=R01-(6.*CU1*R11)+(6.*(CU1**2.)*R21) 
BR2B2=R02-(6.*CU2*R12)+(6.*(CU2**2.)*R22) 
BR2B3=R03-(6.*CU3*R13)+(6.*(CU3 * *2.)*R23) 

SUMB1 = H1*BR2A1 

SUMB2 = H2*BR2A2 

SUMB3 = H3*BR2A3 

SUMBL=SUMB1+SUMB2+SUMB3 

SUMBN 1 =ETA1 1 *CU 1 * BR2B 1 

SUMBN2=ETA12*CU2*BR2B2 

SUMBN3=ETA13*CU3*BR2B3 

SUMBN =(3 ./4.) *(SUMBN 1 +SUMBN2+SUMBN3) 

AL2L = (L/KFB) * SUMBL 
ALPH2=AL2L-SUMBN 
ALPH01=ETA11*(CU1**2.)*(CU1*R21— Rll) 
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ALPH02aETA12*(CU2**2.)*(CU2*R22-R12) 

ALPH03=ETA13*(CU3**2.)*(CU3*R23-R13) 

ALPH0»(972.)*(ALPH01+ALPH02+ALPH03)-1- 
BR3A1 = (57./256.)*Sll+(ll.A6.)*CUl*(S21+S31) 

*-<9./8.)*(CUl**2.)*S41-(CUl , *3.)*(S51+S61)+(CUl* , 4.)* s71 
BR3A2 = (57./256.)*S124(ll./16.)*CU2*(S22+S32) 

*-{9./8.)*(CU2**2.)*S42r-(CU2**3.) , (S52+S62)+(CU2**4.)*S72 

BR3A3 * (57./256.)*S13+(ll./16.)*CU3 , (S23+S33) 

*-(9./8.)*(CU3**2.)*S43-{CU3**3.)*(S53+S63)+(CU3**4.)*S73 

BR3B1=((9./4.)*CU1*S11)+(6.*(CU1**2.)*(S21+S31)) 

*_(12*(CU1 * *3.)*S41) 

BR3B2=((9./4.)*CU2*S12)+(6.*(CU2**2.)*(S22+S32)) 

*-/12*(CU2**3.)*S42) 

BR3B3=((9./4.)*CU3*S13)+(6.*(CU3**2.)*(S23+ S33 )) 

*-(12*(CU3 * *3.)*S43) 

SUMC1 = H1*BR3A1 

SUMC2 = H2*BR3A2 

SUMC3 = H3*BR3A3 

SUMCL=SUMC1 +SUMC2+SUMC3 

SUMCN1=ETA11 *BR3B1 

SUMCN2=ETA12*BR3B2 

SUMCN3=ETA13*BR3B3 

SUMCN=(3./8.)*(SUMCN 1 +SUMCN2+SUMCN3) 

AL3L =(ll./16.)+( L/KFB)*SUMCL 
ALPH3=AL3L+SUMCN 

BR4A1 = (9.0/256.)*Sll+(3-0/l 6 )*CU 1 *( S21 + S31 ) 

*-{l./8.)*(CUl**2.)*S41-(CUl**3.)*(S51+S61)+(CUl**4.)*S71 
BR4A2 = (9.0/256.)*S12+(3.0/16.)*CU2*(S22+S32) 

*-<l./8.)*(CU2* *2.)*S42-(CU2* *3.)*(S52+S62)+(CU2* , 4.)*S72 
BR4A3 = (9.0/256.)*S13+(3.0/16.)*CU3*(S23+S33) 
*-(l./8.)*(CU3**2.)*S43-{CU3**3.)*(S53+S63)+(CU3**4.)*S73 
BR4B1=((1./4.)*CU1*S11)+(6.*(CU1**2.)*(S21+S31))- 

*(12.*(CU1**3.)*S41) 

BR4B2=((1./4.)*CU2*S12)+(6.*(CU2 ,, *2.)*(S22+S32)>- 

*(12.*(CU2**3.)*S42) 

BR4B3=((1./4.)*CU3*S13)+(6.*(CU3**2.)*(S23+S33)>- 

•(12.*(CU3**3.)*S43) 

SUMD1 = H1*BR4A1 

SUMD2 = H2*BR4A2 

SUMD3 = H3*BR4A3 

SUMDL=SUMD1 +SUMD2+SUMD3 

SUMDN1=ETA11 *BR4B1 

SUMDN2=ETA12*BR4B2 

SUMDN3=ETA13*BR4B3 

SUMDN=(3./8.)*(SUMDN 1 +SUMDN2+SUMDN3) 

AL4L = (3.0/16.)+(L/KFB)*SUMDL 

ALPH4=AL4L+SUMDN 

BR5Bl=(3./16.)*(CUl*SU)+(l/2-)*(CUl**2.)*(S21+S31HCUl**3.)*S41 

BR5B2K3716.)*(CU2*S12)+(1./2.)*(CU2**2.)*(S22+S32HCU2-3.)*S42 
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BR5B3=(3./16.)*(CU3*S13)+(1./2.)*(CU3**2.)*(S23+S33)-(CU3**3.)*S43 

SUMEN1=ETA11*BR5B1 

SUMEN2=ETA12*BR5B2 

SUMEN3=ETA13*BR5B3 

SUMEN=SUMEN1+SUMEN2+SUMEN3 

ALPH5=-((9./2.)*SUMEN+(ll./16.)) 

DENA = (ALPH1 * ALPH4)h(ALPH 2* ALPH3) 
A1=((ALPH0*ALPH4)-(ALPH2*ALPH5))/DENA 
A2=((ALPH1 * ALPH5HALPH0*ALPH3))/DENA 
TBULK = (l./70.)*((17.*Al)+(3.*A2)) 
CONST=l./(16.*(ALlL*AL4L-AL2L*AL3L)) 
all=(ll.*al21-16.*al41)*CONST 
A2L=(16.*AL3L-11.*AL1L)*C0NST 
TBULKL=(1/70.)*(17.*A1L+3.*A2L) 

WRITE(6,200) TW^,L,-TBULK,-TBULKL 
writc(7 > 202)l,-tbulk],-tbu]k 
write(8,201)l,-tbulk 
66 CONTINUE 
55 CONTINUE 
44 CONTINUE 

200 FORMAT(8X,F7.2, 3XJ6.2, 3XJ6.2, 2(3X,E10.4)) 

111 FORMAr(8X,TW’,8X,’P’,6X,’L’,9X, TBULK’, 7X,’TBULKL’) 

201 format (Ix,f9.2,3x,cl0.4) 

202 format (lx, f9.2,2(3x,cl0.4)) 

STOP 

END 

C 

FUNCTION F101(U1) 

COMMON F1.F2T3 

DENI = (Fl*((Ul**2.)+(2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI = (F1*((U1 **2.)+(4.*Ul *F1)+(4.*F1)))/DEN1 

F101 = AUDI 

RETURN 

END 

FUNCTION F102(U2) 

COMMON F1,F2J3 

DEN2 = (F2*((U2* *2.)+(2. *U2)+2.)+U2)*(U2+(2.*F2» 

AUD2 = F2*((U2**2.)+(4.*U2*F2)+(4.*F2))/DEN2 

FI 02 = AUD2 

RETURN 

END 

FUNCTION F103(U3) 

COMMON F1,F2,F3 

DEN3 =((F3*((U3**2.)+2 *U3)+2.)+U3)*(U3+(2. *F3)) 

AUD3 = (F3*((U3*2.)+(4.*U3*F3)+(4.*F3)))/DEN3 

F103 = AUD3 

RETURN 

END 

FUNCTION F111(U1) 
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COMMON F1,F2J3 

DENI * (Fl*((Ul**2.)+{2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI ■ (Fl*((Ul**2.)+( 4 -* ul * F1 W 4 -* F1 ))V DEN1 

Fill = AUDI *U1 

RETURN 

END 

FUNCTION F112(U2) 

COMMON F1JF2J3 

DEN2 = (F2*((U2*U2 )+{2.*U2)+2.)+U2) , (U2+(2.*F2)) 

AUD2 = (F2*((U2*U2 )+{4.*U2*F2)+(4.* F 2)))/DEN2 

FU2 = AUD2*U2 

RETURN 

END 

FUNCTION F113(U3) 

COMMON F1J2J3 

DEN3 * (F3*((U3 • *2.)+{2. *U3)+2.)+U3)* (U3+(2.*F3)) 

AUD3 = (F3 *((U3 **2.)+(4. *U3 *F3)+(4. *F3)))/DEN3 

F113 = AUD3*U3 

RETURN 

END 

FUNCTION F121(U1) 

COMMON F1,F2,F3 

DENI = (Fl*((Ul**2.)+{2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI = (F1*((U1**2.)+(4.*U1*F1)+( 4 * F1 ))V DEN1 

F121 = AUD1*U1*U1 

RETURN 

END 

FUNCTION F122(U2) 

COMMON FI, F2.F3 

DEN2 = (F2*((U2**2)+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 
AUD2 = (F2*((U2**2.)+(4.*U2*F2>t-(4.*F2)))/DEN2 
F122 = AUD2*U2**2. 

RETURN 

END 

FUNCTION F123(U3) 

COMMON F1J2J3 

DEN3 = (F3*((U3**2.)+(2.*U3)+2.)+U3)*(U3+(2.*F3)) 

AUD3 = (F3*((U3**2)+(4.*U3*F3)+(4.*F3)))/DEN3 

F123 = AUD3*U3*U3 

RETURN 

END 

FUNCTION F131(U1) 

COMMON F1.F2JF3 

DENI = (Fl*((Ul**2.)+(2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI = (Fl*((Ul**2.)+(4.*Ul*Fl)+( 4 * F1 ))y DEN1 
F131 = AUD1*U1**3. 

RETURN 

END 

FUNCTION F132(U2) 
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COMMON FI, F2J3 

DEN2 = (F2*((U2**2.)+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 
AUD2 = (F2*((U2**2.)+(4.*U2*F2)+(4.*F2)))/DEN2 
F132 « AUD2*U2**3. 

RETURN 

END 

FUNCTION F133(U3) 

COMMON F1.F2J3 

DEN3 = (F3*((U3**2)+(2.*U3)+2.)+U3)*(U3+(2.*F3)) 
AUD3 = (F3*((U3 * *2.)+(4. *U3 *F3)+(4. *F3)))/DEN3 
F133 = AUD3*U3**3. 

RETURN 

END 

FUNCTION F141(U1) 

COMMON FI ,F2,F3 

DENI = (FI *((U 1 * *2)+(2. *U 1 )+2.)+Ul) *(Ul+(2. *F1)) 
AUDI = (FI *((U1 **2.)+(4.*Ul *F1)+(4.*F1)))/DEN1 
F141 = AUD1*U1**4. 

RETURN 

END 

FUNCTION F142(U2) 

COMMON F1.F2J3 

DEN2 = (F2*((U2**2)+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 

AUD2 = (F2*((U2 * *2.)+(4. *U2*F2)+(4. *F2)))/DEN2 

F142 = AUD2*U2*U2*U2*U2 

RETURN 

END 

FUNCTION F143(U3) 

COMMON F1,F2,F3 

DENS = (F3 *((U3 * * 2.)+(2. *U3)+2.)+U3) *(U3+(2. *F3)) 
AUD3 = (F3*((U3**2.)+(4.»U3*F3)+(4.*F3)))/DEN3 
FI 43 = AUD3*U3**4. 

RETURN 

END 
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NONGRAY RESULTS FOR C0 2 


TW P L TBULK (NLTE) TBULKL (LTE) 

300.00 0.10 0.10 0.2429E+00 0.2428E+00 

300.00 0.10 0.50 0.2428E+00 0.2422E+00 

300.00 0.10 1.00 0.2426E+00 0.2411E+00 

300.00 0.10 5.00 0.2372E+00 0.2250E+00 

300.00 0.10 10.00 0.2226E+00 0.1985E+00 

300.00 0.10 20.00 0.1847E+00 0.1525E+00 

300.00 0.10 50.00 0.1044E+00 0.8367E-01 

300.00 0.10 75.00 0.7297E-01 03980E-01 

300.00 0.10 100.00 03527E-01 0.4636E-01 

300.00 1.00 0.10 0.2426E+00 0.2424E+00 

300.00 1.00 030 0.2400E+00 0.2390E+00 

300.00 1.00 1.00 0.2355E+00 0.2338E+00 

300.00 1.00 5.00 0.1979E+00 0.1954E+00 

300.00 1.00 10.00 0.1631E+00 0.1612E+00 

300.00 1.00 20.00 0.1205E+00 0.1194E+00 

300.00 1.00 50.00 0.6807E-01 0.6774E-01 

300.00 1.00 75.00 03018E-01 03000E-01 

300.00 1.00 100.00 0.3980E-01 0.3970E-01 

300.00 5.00 0.10 0.2419E+00 0.2418E+00 

300.00 5.00 030 0.2367E+00 0.2366E+00 

300.00 5.00 1.00 0.2305E+00 0.2303E+00 

300.00 5.00 5.00 0.1908E+00 0.1907E+00 

300.00 5.00 10.00 0.1574E+00 0.1573E+00 

300.00 5.00 20.00 0.1170E+00 0.1169E+00 

300.00 5.00 50.00 0.6680E-01 0.6679E-01 

300.00 5.00 75.00 0.4945E-01 0.4945E-01 

300.00 5.00 100.00 0.3933E-01 03933E-01 

300.00 10.00 0.10 0.2416E+00 0.2416E+00 

300.00 10.00 0.50 0.2362E+00 0.2362E+00 

300.00 10.00 1.00 0.2300E+00 0.2299E+00 

300.00 10.00 5.00 0.1904E+00 0.1903E+00 

300.00 10.00 10.00 0.1570E+00 0.1570E+00 

300.00 10.00 20.00 0.1168E+00 0.1168E+00 

300.00 10.00 50.00 0.6674E-01 0.6674E-01 

300.00 10.00 75.00 0.4942E-01 0.4942E-01 

300.00 10.00 100.00 0.3931E-O1 0.3931E-01 

500.00 0.10 0.10 0.2428E+00 0.2426E+00 

500.00 0.10 030 0.2425E+00 0.2402E+00 

500.00 0.10 1.00 0.2415E+00 0.2359E+00 

500.00 0.10 5.00 0.2227E+00 0.1949E+00 

500.00 0.10 10.00 0.1899E+00 0.1528E+00 

500.00 0.10 20.00 0.1338E+00 0.1020E+00 

500.00 0.10 50.00 0.6055E-01 0.4815E-01 

500.00 0.10 75.00 0.3971E-01 0.3290E-01 
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500.00 

0.10 

100.00 

500.00 

1.00 

0.10 

500.00 

1.00 

0.50 

500.00 

1.00 

1.00 

500.00 

1.00 

5.00 

500.00 

1.00 

10.00 

500.00 

1.00 

20.00 

500.00 

1.00 

50.00 

500.00 

1.00 

75.00 

500.00 

1.00 

100.00 

500.00 

5.00 

0.10 

500.00 

5.00 

0.50 

500.00 

5.00 

1.00 

500.00 

5.00 

5.00 

500.00 

5.00 

10.00 

500.00 

5.00 

20.00 

500.00 

5.00 

50.00 

500.00 

5.00 

75.00 

500.00 

5.00 

100.00 

500.00 

10.00 

0.10 

500.00 

10.00 

0.50 

500.00 

10.00 

1.00 

500.00 

10.00 

5.00 

500.00 

10.00 

10.00 

500.00 

10.00 

20.00 

500.00 

10.00 

50.00 

500.00 

10.00 

75.00 

500.00 

10.00 

100.00 

1000.00 

0.10 

0.10 

1000.00 

0.10 

0.50 

1000.00 

0.10 

1.00 

1000.00 

0.10 

5.00 

1000.00 

0.10 

10.00 

1000.00 

0.10 

20.00 

1000.00 

0.10 

50.00 

1000.00 

0.10 

75.00 

1000.00 

0.10 

100.00 

1000.00 

1.00 

0.10 

1000.00 

1.00 

0.50 

1000.00 

1.00 

1.00 

1000.00 

1.00 

5.00 

1000.00 

1.00 

10.00 

1000.00 

1.00 

20.00 

1000.00 

1.00 

50.00 

1000.00 

1.00 

75.00 

1000.00 

1.00 

100.00 

1000.00 

5.00 

0.10 

1000.00 

5.00 

0.50 

1000.00 

5.00 

1.00 


0.2915E-01 0.2486E-01 
0.2421E+00 0.2417E+00 
0.2355E+00 0.2337E+00 
0.2258E+00 0.223 2E+00 
0.1625E+00 0.1596E+00 
0.1189E+00 0.1171E+00 
0.7753E-01 0.7672E-01 
0.3832E-01 0.3813E-01 
0.2705E-01 0.2696E-01 
0.2092E-01 0.2087E-01 
0.2408E+00 0.2407E+00 
0.2302E+00 0.2299E+00 
0.2178E+00 0.2176E+00 
0.1535E+00 0.1533E+00 
0.1131E+00 0.1130E+00 
0.7470E-01 0.7467E-01 
0.3752E-01 0.3751E-01 
0.2662E-01 0.2662E-01 
0.2065E-01 0.2065E-01 
0.2404E+00 0.2403E+00 
0.2293E+00 0.2292E+00 
0.2168E+00 0.2168E+00 
0.1532E+00 0.1531E+00 
0.1130E+00 0.1130E+00 
0.7474E-01 0.7473E-01 
0.3754E-01 0.3754E-01 
0.2664E-01 0.2664E-01 
0.2066E-01 0.2066E-01 
0.2428E+00 0.2424E+00 
0.2414E+00 0.2357E+00 
0.2378E+00 0.2226E+00 
0.1782E+00 0.1296E+00 
0.1151E+00 0.7718E-01 
0.5783E-01 0.3942E-01 
0.1878E-01 0.1430E-01 
0.1121E-01 0.9001E-02 
0.7800E-02 0.6491E-02 
0.2407E+00 0.2397E+00 
0.2194E+00 0.2151E+00 
0.1907E+00 0.1854E+00 
0.7829E-01 0.7591E-01 
0.4208E-01 0.4112E-01 
0.2148E-01 0.2117E-01 
0.8727E-02 0.8667E-02 
0.5866 E-02 0.5839E-02 
0.4428E-02 0.4412E-02 
0.2366E+00 0.2363E+00 
0.2018E+00 0.201 2E+00 
0.1647E+00 0.1642E+00 
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1000.00 5.00 5.00 0.6204E-01 0.6190E-01 
looaoo 5.00 10.00 03539E-01 03535E-01 


1000.00 5.00 20.00 0.1943E-01 0.1942E-01 

1000.00 5.00 50.00 0.8438E-02 0.8436E-02 

1000.00 5.00 75.00 05767E-02 05766E-02 

1000.00 5.00 100.00 0.4387E-02 0.4387E-02 

1000.00 10.00 0.10 0.235 1E+00 0.2350E+00 

1000.00 10.00 050 0.1957E+00 0.1955E+00 

1000.00 10.00 1.00 0.1571E400 0.1569E+00 

1000.00 10.00 5.00 0.608 2E-01 0.6078E-01 

1000.00 10.00 10.00 0.355 IE-01 0.3550Er-01 

1000.00 10.00 20.00 0.1973E-01 0.1972E-01 

1000.00 10.00 50.00 0.8580E-02 0.8579E-02 

1000.00 10.00 75.00 0.5853E-02 05853E-02 


1000.00 10.00 100.00 0.4446E-02 0.4445 E-02 

2000.00 0.10 0.10 0.2428E+00 0.2426E+00 

2000.00 0.10 0.50 0.2417E+00 0.2384E+00 

2000.00 0.10 1.00 0.2385E+00 0.2279E+00 

2000.00 0.10 5.00 0.1783E+00 0.1286E+00 

2000.00 0.10 10.00 0.1098E+00 0.7039E-01 

2000.00 0.10 20.00 0.4990E-01 0J214E-01 

2000.00 0.10 50.00 0.1373E-01 0.9842E-02 

2000.00 0.10 75.00 0.7604E-02 05750E-02 

2000.00 0.10 100.00 0.5028E-02 0J948Er-02 

2000.00 1.00 0.10 0.2414E+00 0.2409E+00 

2000.00 1.00 0.50 0.2202E+00 0.2162E+00 

2000.00 1.00 1.00 0.1864E+00 0.1807E+00 

2000.00 1.00 5.00 0.6093Er-01 0.5875E-01 

2000.00 1.00 10.00 0.2865E-01 0.2786E-01 

2000.00 1.00 20.00 0.1292E-01 0.1267E-01 

2000.00 1.00 50.00 0.4667E-02 0.4623E-02 

2000.00 1.00 75.00 0.3050E-02 0.3030E-02 

2000.00 1.00 100.00 0.2275E-02 0.2264Er4)2 

2000.00 5.00 0.10 0.2371E+00 0.2369E+00 

2000.00 5.00 0.50 0.1939E+00 0.1932E+00 

2000.00 5.00 1.00 0.1471E+00 0.1465E+00 

2000.00 5.00 5.00 0.4069E-01 0.4057E-01 

2000.00 5.00 10.00 0.2075E-01 0.2072E-01 

2000.00 5.00 20.00 0.1063E-01 0.1062E-01 

2000.00 5.00 50.00 0.4458E-02 0.4457E-02 

2000.00 5.00 75.00 0.3040E-02 0.3039E-02 

2000.00 5.00 100.00 0.2315E-02 0.2314E-02 

2000.00 10.00 0.10 0.2346E+00 0.2345E+00 

2000.00 10.00 0.50 0.1828E+00 0.1826E+00 

2000.00 10.00 1.00 0.1334E+00 0.1332E+00 

2000.00 10.00 5.00 0.3777E-01 0.3774E-01 

2000.00 10.00 10.00 0.2022E-01 0.2021E-01 

2000.00 10.00 20.00 0.1073E-01 0.1073E-01 

2000.00 10.00 50.00 0.4581E-02 0.4580E-02 
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2000.00 10.00 75.00 0.3124E-02 03124E-02 
2000.00 10.00 100.00 0.2375E-02 0.2375E-02 
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c This program calcultcs LTE and NLTE bulk temp, under nongray 
c gas assumption for H_20 
c IMPLICIT DOUBLE PREOSION (A-H.O-Z) 

REALL.KFB 

EXTERNAL F101,F102J r 103 ,F104,F1Q5 Jill ,F112^113, 

• F114JU5.F121 J122J123^124^125 ,F131,F132, 
•F133,F134,F135,F141,F1424fl43,F144,F145 
DIMENSION U(9),PRES(4),TEMP(4) 

COMMON F1J2J3,F4 > F5 
OPEN(4,Gle=’output4’) 
open(5,file=’nlp’) 
open(6,Gle»’lp’) 

DATA U/0.1, 0.5, 1.04-0, 10.0, 20.040.0, 75.,100.0/ 

DATA PRES/0.1, 1.4.40.0/ 

DATA TEMP/300.400.,1000.04000.0/ 

WRTTE{4411) 
write(5,13) 
write(5,*) 11,1 

13 formatpV.’xy.’t’,/, ’tl’,/,i4,x,’l’) 

write(6,14) 
write(6,*) 11,1 

14 format( , 2V, , xV,’tV,/,i4^, , r) 

DO 44 IT = 1,4 

TW = TEMP(TT) 

DO 55 KK= 1,4 
P = PRES(KK) 

DO 66 1 = 1,9 
L=U(I) 

C 

c CALCULAHON OF PLANK’S FUNCTION IT’S DERIVATIVES 

C 

C WNB BAND CENTER (1/CM) 

C HCK CONSTANT (K CM) 

C CCC C1*C2(ERG-K-CM**3?SEC) 

C PFDBI PLANCK FUNCTION DERIVATIVE FOR I BAND 

C 

CESS = TW**2 
STU = TW**0.5 
SNT = TW/273. 

HCK = 1.439257246 
AK1 = (TW/300.)**04 
TS = 300./TW 



C SPECTROSCOPIC PROPERTIES OF 1120 

C HERE WE HAVE CONSIDERED FIVE BANDS(I.R., 6.34-7, 1.87,1.38 MICRONS) 
C WNBI BAND CENTER (1/CM) 

c — 

WNBI = 500. 

WNB2 = 1600. 
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WNB3 = 3750. 

WNB4 = 5350. 

WNB5 = 7250. 

C2B1 = HCK*WNB1 
C2B2 = HCK*WNB2 
C2B3 = HCK*WNB3 
C2B4 = HCK*WNB4 
C2B5 = HCK*WNB5 
CCC = 0.000053847734 
CCB1 = CCC*(WNB1**4) 

CCB2 = CCC*(WNB2**4) 

CCB3 = CCC*(WNB3**4) 

CCB4 = CCC*(WNB4**4) 

CCB5 = CCC*(WNB5**4) 

TB1 = C2B1/TW 
TB2 = C2B2/TW 
TB3 = C2B3/TW 
TB4 = C2B4/TW 
TB5 = C2B5/TW 
TEB1 = EXP(TB1) 

TEB2 = EXP(TB2) 

TEB3 = EXP(TB3) 

TEB4 = EXP(TB4) 

TEB5 = EXP(TB5) 

SNTB1 = CESS *((TEB1-1.)* *2.) 
SNTB2 = CESS *((TEB2-1.)* *2.) 
SNTB3 = CESS *((TEB3-1.)* *2.) 
SNTB4 = CESS*((TEB4-1.)**2.) 
SNTB5 = CESS*((TEb5-l.)**2) 
PFDB1 = (CCB1 *TEB1)/SNTB1 
PFDB2 = (CCB2*TEB2)/SNTB2 
PFDB3 = (CCB3 *TEB3)/SNTB3 
PFDB4 = (CCB4 *TEB4)/SNTB4 
PFDB5 = (CCB5 *TEB5)/SNTB5 


C BAND MODEL CORRELATIONS (TIEN & LOWDER WIDE BAND MODEL) 
C AZI AOI (1/CM) 

C CZSI COI**2(l/(ATM-CM)) 

C BSI B**2 (NON DIMENSIONAL) 

C OMGI WAVE NUMBER (1/CM) 

C SI INTEGRATED BAND TNTENSITY (1/(ATM CM**2)) 

C 

AK1 =(TW/300.)*»0_5 
AK2 = (300./TW)**lJ 
AZI = 49.4*AK1 
AZ2 = 90.1 *AK1 
AZ3 = 1126‘AKl 
AZ4 = 79.7*AK1 
AZ5 = 79.7*AK1 
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C DKF THERMAL CONDUCTIVITY (ERG/CM-SEC-K) 

C 

KFB = (1488.365171)*(SNT**1.23) 

AMB-H/KFB 
OMG1 * 3652.0 
OMG2 - 1595.0 
OMG3 = 3756.0 
TX — (HCK/TW) 

TX1 = TX’OMGl 
TX2 = TX*OMG2 
TX3 = TX*OMG3 
ETX1 « EXP(TX1) 

ETX2 = EXP(TX2) 

ETX3 = EXP(TX3) 

Cl = 1.0-ETX1 
C2 = 1.0-ETX2 
C3 = 1.0-ETX3 

BRKT1 = TX*(OMGl+OMG3) 

BRKT2 = TX*(OMG2+OMG3) 

PH101 = (1.-EXP(BRKT1))/C1 *C2*C3 
PH011 = (1 .-EXP(BRKT2))/C 1 *C2*C3 
TS11 = (TW/100.)**(-03) 

PHT7 = EXP(-17.6*TS11) 

CZS1 = 771.*AK2*Pffl7 
CZS2 = 3.35 *AK2 
CZS3 = 1.52*AK2 
CZS4 ■ 0.276*AK2*PH011 
CZS5 = 0.230*AK2*PH101 

51 = AZ1*CZS1 

52 = AZ2*CZS2 

53 = AZ3*CZS3 

54 = AZ4*CZS4 

55 = AZ5*CZS5 

C 

C PL PRESSURE PATH LENGTH (ATM-CM) 

C 

PL = P*L 
UZ1 = CZSl’PL 
UZ2 = CZS2*PL 
UZ3 = CZS3*PL 
UZ4 = CZS4*PL 
UZ5 = CZS5*PL 
BS1 = 0.073/AK1 
BS2 = 0.130/AK1 
BS3 = 0.145/AK1 
BS4 = 0.118/AK1 
BS5 = 0.201/AK1 


218 


O O 


PEI EFFECTIVE PRESSURE FOR EACH BAND (NON DIMENSIONAL) 


PE = 5.0*P 

C 

C BETAI LINE STRUCTURE PARAMETR 

C 

BETAI = BSl’PE 
BETA2 = BS2*PE 
BETA3 = BS3*PE 
BETA4 = BS4*PE 
BETAS = BS5*PE 

C 

C CORRELATION FOR EACH BAND 

C 

FI = 2.94 *(1.0- EXP(-(2.6*BETA1))) 

F2 = 2.94*(1.0- EXP(-(2.6*BETA2))) 

F3 = 2.94*(1.0-EXP(-(2.6*BETA3))) 

F4 = 2.94 *(1 .0- EXP(-(2.6* BETA4))) 

F5 = 2.94*(1.0- EXP(-(2.6*BETA5))) 

HI = AZ1*PFDB1 
H2 = AZ2*PFDB2 
H3 = AZ3*PFDB3 
H4 = AZ4*PFDB4 
H5 = AZ5*PFDB5 
H = H1+H2+H3+H4+H5 
AM = H*L/KFB 

C 

C NUMERICAL INTEGRATION 

C 

EP =l.E-3 
XI = 0.0 

X21 = (3./8.)*UZl 
X22 = (3./8.)*UZ2 
X23 = (3./8.)*UZ3 
X24 = (3./8.)*UZ4 
X25 = (3./8.)*UZ5 
Yll = 1.5*UZ1 
Y12 = 1.5*UZ2 
Y13 = 1.5*UZ3 
Y14 = 1.5*UZ4 
Y15 = 1.5*UZ5 
Y21 = 3.0*X21 
Y22 = 3.0*X22 
Y23 = 3.0*X23 
Y24 = 3.0*X24 
Y25 = 3.0*X25 

CALL RHBINT(F101^C1,Y11,R01,100S,EP,KE) 
CALL RHBINT(F102,X1,Y12,R02,100,5,EP,KE) 
CALL RHBINT(F1 03,X1 , Y1 3, R03 , 1 00,5,EP,KE) 
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CALL RHBINT(F104^1,Y14,R04,10043P^E) 

CALL RHBIOT(F105,X1 ) Y15,R05,100,5,EP,KE) 
CALL RHBINT(F111^1,Y11^11,100^3P,KE) 
CALL RHBINT(F112^1,Y12,R12,100^^P,KE) 
CALL RHBINT(F113,X1,Y13,R13, 100,5 ,EP,KE) 
CALL RHBINT(F114,X1,Y14,R14,100,5,EP,KE) 
CALL RHBINT(F115,X1,Y15,R15,100,5,EP,KE) 
CALL RHBINT(F121,Xl,Yll,R21,100 f 5,EP,KE) 
CALL RHBINT(F122^C1,Y12,R22,100,5,EP,KE) 
CALL RHBINT(F123,X1,Y13,R23,100,5,EP,KE) 

CALL RHBINT(F124pa,Y14,R24,100^3P^E) 

CALL RHBrNT(F125^a,Y15,R25,100^3P,KE) 
CALL RHBINT(F131^a,Yll,R31,10043P,KE) 
CALL RHBINT(F132,X1, Y12.R32, 100,5 ,EP,KE) 

CALL RHBINT(F133^1,Y13,R33,100,53PJKE) 

CALL RHBINT(F134pa,Y14,R34,100 ( 5,EP,KE) 
CALL RHBINT(F135,X1,Y15,R35,100,5,EP,KE) 
CALL RHBENT(F141,X1,Y11,R41,100,5,EP,KE) 
CALL RHBINT(F142^a,Y12,R42,100^,EP,KE) 
CALL RHBINT(F143,X1,Y13,R43,100,5,EP,KE) 
CALL RHBINT(F144,X1,Y14,R44,100,5,EP,KE) 
CALL RHBINT(F145,X1,Y15,R45,100,5,EP,KE) 
CALL RHBINT(F101,X21,Y21,S11,100,5,EP,KE) 
CALL RHBINT(F102^22,Y22,S12,100,53P,KE) 
CALL RHBINT(F103pt23,Y23,S13,100,5^P,KE) 
CALL RHBINT(F104,X24,Y24,S14,100,5,EP,KE) 
CALL RHBINT(F105,X25,Y25,S15,100,5,EP,KE) 
CALL RHBINT(F111,X1,X21,S21,100,5,EP,KE) 
CALL RHBINT(F112,X1,X22,S22,100,5,EP,KE) 
CALL RHBIOT(F113,X1,X23,S23,100,5,EP,KE) 
CALL RHBINT(F114 r X1^24,S24,100^3P,KE) 
CALL RHBINT(F115,X1,X25,S25,100,5,EP,KE) 
CALL RHBINT(Flll r Xl,Y21,S31,100,5,EP,KE) 
CALL RHBINT(F112,X1 > Y22,S32,100,5,EP ) KE) 
CALL RHBINT(F113,X1,Y23,S33,100,5,EP,KE) 
CALL RHBINT(F114,X1,Y24,S34,100,5,EP,KE) 
CALL RHBINT(F115,X1,Y25,S35,100,S,EP,KE) 
CALL RHBINT(F121,X21,Y21,S41, 100,5 ,EP,KE) 
CALL RHBINT(F122,X22,Y22,S42,100,5,EP,KE) 
CALL RHBINT(F123^23,Y23,S43, 100,5 JEP,KE) 
CALL RHBINT(F124PC24,Y24,S44,100^3P,KE) 
CALL RHBINT(F125,X25,Y25,S45,100,5,EP,KE) 
CALL RHBINT(F131,X1,X21,S51 > 100,5,EP,KE) 
CALL RHBINT(F132,X1,X22,S52,100,5,EP,KE) 
CALL RHBINT(F133,X1,X23,S53,100,5,EP,KE) 
CALL RHBINT(F134,X1,X24,S54, 100,5 ,EP,KE) 
CALL RHBINT(F135,X1,X25,S55,100,5,EP,KE) 
CALL RHBINT(F131,X1,Y21,S61,100,5,EP,KE) 
CALL RHBINT(F132,X1,Y22,S62,100,5,EP,KE) 
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CALL RHBINT(F133^a,Y23,S63,100^3P,KE) 

CALL RHBINT(F134 > X1,Y24,S64,100 t 53P > KE) 

CALL RHBINT(F135pa,Y25,S65,10043P,KE) 

CALL RHBINT(F141PC21,Y21,S71 > 100^^P > KE) 

CALL RHBINT(F142 > X22 > Y22,S72,100^3P,KE) 

CALL RHBINT(F143 ) X23,Y23,S73,100^3P,KE) 

CALL RHBINT(F144,X24,Y24,S74, 100,5 JEP,KE) 

CALL RHBINT(F145,X25,Y25,S75,100,5,EP,KE) 

CU1 = 2./(3. *UZ1) 

CU2 = 2-/(3. *UZ2) 

CU3 = 1/(3.*UZ3) 

CU4 = 2/(3. *UZ4) 

CU5 = 1/(3. *UZ5) 

BR1A1 = (CU1*R11)-1*(CU1**3.)*R31+(CU1**4.)*R41 
BR1A2 = (CU2*R12>-1*(CU2**3.)*R32+(CU2**4.)*R42 
BR1A3 = (CU3 *R13)-1 *(CU3 * *3.) *R33+(CU3 * *4.)*R43 
BR1A4 = (CU4*R14)-2.*(CU4**3.)*R34+(CU4**4.)*R44 
BR1A5 = (CU5*R15)-1*(CU5**3.)*R35+(CU5**4.)*R45 
BR1B1=((CU1**2.)*R21>-(CU1*R11) 
BR1B2=((CU2**2.)*R22)-(CU2*R12) 
BR1B3=((CU3**2)*R23)-(CU3*R13) 

BR1B4=((CU4* *2.)*R24>-(CU4*R14) 
BR1B5=((CU5**1)*R25)-(CU5*R15) 
ETCl=((36.5*(TW**(-l/3.)))+3.9) 

ETC2=EXP(ETCl)*(l.E-6) 

ETAC=ETC2/P 

ETRll=8.*3.14*(500.**(2))*4.08*(l.E-12)*sl*tw 

ETAR1=1./ETR11 

ETR12=8.*3.14*(1600.**(l))*4.08*(l.E-12)*s2*tw 

ETAR2=1./ETR12 

ETR13=8. *3.14*(3750. * *(1))*4.08*(1.E-I2)*s3 *tw 
ETAR3=1./ETR13 

ETR14=8.*3.14*(5350.**(l))*4.08*(l.E-12)*s4*tw 

ETAR4=1./ETR14 

ETR15=8.*3.14*(7250.**(l))*4.08*(l.E-12)*s5*tw 

ETAR5=1./ETR15 

ETA1 1 =ETAC/ETAR1 

ETA12=ETAC/ETAR2 

ETA 1 3 =ETAC/ETAR3 

ETA14=ETAC/ETAR4 

ETA15 =ETAC/ETAR5 

SUMA1 = H1*BR1A1 

SUMA2 = H2*BR1A2 

SUMA3 = H3*BR1A3 

SUMA4 = H4*BR1A4 

SUMA5 = H5*BR1A5 

AL1L = l.+(L/KFB)*(SUMAl+SUMA2+SUMA3+SUMA4+SUMA5) 

SUMAN1=ETA11*CU1*BR1B1 

SUMAN2=ETA12*CU2*BR1B2 
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SUMAN3«ETA13*CU3*BR1B3 
SUMAN4=ETA14*CU4*BR1B4 
SUMAN5=ETA15 *CU5*BR1B5 

SUMAN=(9./2.)*(SUMAN 1+SUMAN2+SUMAN3+SUMAN4+SUMAN5) 
ALPH1=AL1L-SUMAN 

BR2A1 « (CU1**2.)*R21-2.*(CU1**3.)*R31+(CU1**4.)*R41 
BR2A2 * (CU2**2-)*R22r-2.*(CU2**3.)*R32+(CU2**4.)*R42 
BR2A3 » (CU3 , *2.)*R23-2.*(CU3**3.)*R33+(CU3**4.)*R43 
BR2A4 = (CU4 ,, 2.)*R24-2.*(CU4**3.)*R34+(CU4**4.)*R44 
BR2A5 = (CU5**2.)*R25-Z*(CU5**3.)*R35+(CU5**4.)*R45 
BR2Bl=R01-(6. *CU1 *R11)+(6.*(CU1 **2.)*R21) 
BR2B2*R02-(6.*CU2*R12)+{6.*(CU2**2.)*R22) 
BR2B3=R03-<6.*CU3*R13)+(6.*(CU3**2.)*R23) 
BR2B3=R04-(6.*CU4*R14)+(6.*(CU4**2.)*R24) 

BR2B3=R03-(6-* cu5 * R15 ) + < 6 *( CU5 ** 2 ')* R25 ) 

SUMB1 = H1*BR2A1 
SUMB2 = H2*BR2A2 
SUMB3 * H3*BR2A3 
SUMB4 = H4*BR2A4 
SUMB5 = H5*BR2A5 

SUMBL=SUMB1 +SUMB2+SUMB3+SUMB4+SUMB5 
SUMBN1 =ETA11 *CU1 *BR2B1 
SUMBN2=ETA12*CU2*BR2B2 
SUMBN3=EIA13*CU3*BR2B3 
SUMBN4=ETA14*CU4*BR2B4 

SUMBN5=ETA15 *CU5 *BR25B 

SUMBN=(3./4.)*(SUMBN1+SUMBN2+SUMBN3+SUMBN4+SUMBN5) 

AL2L = (L/KFB)*SUMBL 
ALPH2=AL2L-SUMBN 

ALPH01=ETA11*(CU1 **2.)*(CU1 *R21-R11) 
ALPH02=ETA12*(CU2**2.)*(CU2*R22-R12) 

ALPH03=ETA13 *(CU3 * *2.)*(CU3 *R23-R13) 

AU > H04=ETA14*(CU4**2.)*(CU4*R24— R14) 
ALPHQ5=ETA15*(CU5**2.)*(CU5*R25-R15) 

ALPH0=(9./2.)*(ALPH01+ALPH02+ALPH03+AIJ > H04+ALPH05)-1. 

BR3A1 = (57./256.) , SU+(H.A6.)*CUl*(S21+S31) 

•-<9./8.)*(CUl**2.)*S41-{CUl**3.)*(S51+S61>+(CUl**4.)*S71 

BR3A2 = (57./256.)*S12+{ll./16.)*CU2*(S22+S32) 

*-(9./8.)*(CU2* , 2.)*S42-(CU2**3.)*(S52+S62)+(CU2**4.)*S72 

BR3A3 = (57./256.)*S13+(ll./16.)*CU3*(S23+S33) 

*-(9./8.)*(CU3**2.)*S43-(CU3**3.)*(S53+S63)+(CU3**4.)*S73 

BR3A4 = (57./256.)*S14+(ll.A6.)*CU4*(S24+S34) 
*-(9./8.)*(CU4**2.)*S44-(CU4**3.)*(S54+S64)+(CU4**4.)*S74 

BR3A5 a (57./256.)*S15+(ll./16.)*CU5*(S25+S35) 

*-(9./8.)*(CU5**2.)*S45-(CU5**3.)*(S55+S65)+(CU5**4.)*S75 

BR3B1=((9./4.)*CU1*S11)+(6.*(CU1**2.)*(S21+S31)) 

*-(12*(CU 1 * *3.)*S41) 

BR3B2a((9./4.)*CU2*S12)+(6. *(CU2* *2.)*(S22+S32» 
*-(12*(CU2**3.)*S42) 
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BR3B3=((9./4.)*CU3*S13)+(6.*(CU3**2.)*(S23+S33)) 

*-{12*(CU3 * *3.)*S43) 

BR3B4=((9./4.)*CU4*S14)4(6.*(CU4**2.)*(S24+S34)) 

*-(12*(CU4**3.)*S44) 

BR3B5=((9./4.)*CU5*S15)4<6. , (CU5**Z)*(S25+S35)) 

*-(12*(CU5**3.)*S45) 

SUMC1 = H1*BR3A1 
SUMC2 ■ H2*BR3A2 
SUMC3 = H3*BR3A3 
SUMC4 = H4*BR3A4 
SUMC5 = H5*BR3A5 

SUMCL=SUMC1+SUMC2+SUMC3+SUMC4+SUMC5 

SUMCN1=ETA11 *BR3B1 

SUMCN2=ETA12*BR3B2 

SUMCN3=ETA13*BR3B3 

SUMCN4=ETA14*BR3B4 

SUMCN5=ETA15*BR3B5 

SUMCN=(3./8.)*(SUMCN 1 +SUMCN2+SUMCN3+SUMCN4+SUMCN5) 

AL3L =(ll./16.)+( L/KFB) *SUMCL 

ALPH3=AL3L+SUMCN 

BR4A1 = (9.0/256.)*Sll+(3.0/16.)*CUl*(S21+S31) 
*-(l./8.)*(CUl**2.)*S41-{CUl**3.)*(S51+S61)+(CUl**4.)*S71 
BR4A2 = (9.0/256.)*S12+(3.0/16.)*CU2*(S22+S32) 
*-(l./8.)*(CU2**2.)*S42-{CU2**3.)*(S52+S62)+(CU2**4.)*S72 
BR4A3 = (9.0/256.)*S13+(3.0/16.)*CU3*(S23+S33) 
*-(l./8.)*(CU3**2.)*S43-(CU3**3.)*(S53+S63)+(CU3**4.)*S73 
BR4A4 = (9.0/256.)*S14+(3.0/16.)*CU4*(S24+S34) 
*-(l./8.)*(CU4**2.)*S44-(CU4**3.)*(S54+S64)+(CU4**4.)*S74 
BR4A5 = (9.0/256.)*S15+(3.0/16.)*CU5*(S25+S35) 
*-(l./8.)*(CU5**2.)*S45-(CU5**3.)*(S55+S65)+(CU5**4.)*S75 
BR4B1=((1./4.)*CU1*S11)+(6.*(CU1**2.)*(S21+S31))— 
*(12.*(CU1**3.)*S41) 

BR4B2=((1./4.)*CU2*S12)+(6.*(CU2**2.)*(S22+S32))- 

*(12.*(CU2**3.)*S42) 

BR4B3=((1./4.)*CU3 *S13)+(6. *(CU3 * *2.)*(S23+S33)>- 
*(12.*(CU3**3.)*S43) 

BR4B4=((1./4.)*CU4*S14)+(6.*(CU4**2.)*(S24+S34)}- 

*(12.*(CU4**3.)*S44) 

BR4B5=((1./4.)*CU5*S15)+{6.*(CU5**2.)*(S25+S35))- 

*(12.*(CU5**3.)*S45) 

SUMD1 = H1*BR4A1 
SUMD2 = H2*BR4A2 
SUMD3 = H3*BR4A3 
SUMD4 = H4*BR4A4 
SUMD5 = H5*BR4A5 

SUMDL=SUMD 1 +SUMD2+SUMD3+SUMD4+SUMD5 
SUMDN 1 =ETA1 1 *BR4B 1 
SUMDN 2=ETA 1 2 * BR4B2 
SUMDN3=ETA1 3 * BR4B3 
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SUMDN4=ETA14*BR4B4 

SUMDN5*ETA15*BR4B5 pmmu ^ 

SUMDN=(3./8.)*(SUMDN1+SUMDN2+SUMDN3+SUMDN4+SUMDN5) 

AL4L ■ (3.0/16.)+(L/KFB)*SUMDL 
ALPH4= AL4L+ SUMDN 

BR5Bl«(3.A6.)*(CUl*Sll>f(l /2-)*( CU1 ** 2 ')*( S21+S31 H CU1 3 *> 841 

BR5B2=(3./16.)*(CU2*S12)+(1./2.)*(CU2**2.)*(S22+S32)-(CU2**3.)*S42 

BR5B3=(3.A6.)*(CU3*S13)+(1./2.)*(CXJ3**2.)*(S23+S33H CU3 ** 3 -)* S43 

BR5B4=(3./16.)*(CU4*S14)+{1-^)*( CU4 ** 2 -)*( S24+S34 H CU4 ’* 3 -)* S44 

BR5B5=( 3 -/16-)'( cu5 * S15 H 1 -/ 2 -)*( CU5 ** 2 -)*( S25+S35 ^ CU5 ** 3 ^ S45 

SUMEN1=ETA11*BR5B1 

SUMEN2*ETA12*BR5B2 

SUMEN3=ETA13 *BR5B3 

SUMEN4=ETA14*BR5B4 

SUMEN5=ETA15*BR5B5 

SUMEN=SUMEN1+SUMEN2+SUMEN3+SUMEN4+SUMEN5 


ALPH5=-((9./2.)*SUMEN+(ll./16.)) 

DENA = (ALPH1*ALPH4)-(ALPH2*ALPH3) 
A1=((ALPH0*ALPH4HALPH2*ALPH5))/DENA 
A2=((ALPH1 *ALPH5)-(ALPH0*ALPH3))/DENA 
TBULK = (l./70.)*((17.*Al)+(3.*A2)) 
C0NST=1./(16.*(AL1L*AL4L-AL2L*AL3L)) 

aii=(n* >121 - 16 * al4, )* CONST 

A2L=(16.*AL3L-11-*AL1L)*C0NST 

TBULKL=(1/70.)*(17.*A1L+3.*A2L) 

WRITE(4,200) TWJ.L -TBULK,-TBULKL 
write(5 ,202)1 ,-tbul kl,-tbulk 

write(6,201)l,-tbulk 

66 CONTINUE 
55 CONTINUE 
44 CONTINUE 

200 FORMAT(lX,F7.2, 3X.F6.2, 3X.F6.2, 2(3X,E10.4)) 

111 FORMAT(4X, TW’ ,8X, ’P ’ ,6X,’L’ ,9X, TBULK’ ,7X,TBULKU) 

201 format (Ix,f9.2,3x,el0.4) 

202 format (Ix,f9.2,2(3x,el0.4)) 


STOP 

END 


subroutine rhbint(fcM,b,romb,nsd,ko,ep,ke) 

dimension t(20) 
ke=0. 


xnsd=nsd 

dlx=(b-a)/xnsd 

romb=0. 


xul=a 

templ=fct(xul) 

do4i=l,nsd 

xll=xul 

xul=xul+dlx 
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tempi! =fct(xii]) 

t(l)=(templ+tempu)/2. 

n=l 

xn=l. 

do 3 nh=l,ko 

n2m=2*n-l 

u=0. 

em=dlx/(2.*xn) 

txn=-l. 

do 1 j=l,n2m,2 

txn=txn+2. 

u=u+fct(xll+txn*em) 

1 continue 

7 nhl=nh+l 

t(nh 1 )=(u/xn+t(nh))/2. 

9 ef=l. 

do 2 j=l,nh 

8 ef=4.*ef 
jm=nhl^ 

12 temp=t(jm+l)+(t(jm+l)~t(jm))/(ef— 1.) 

if (abs ((t(jm)-t(jm+l))/amaxl(t(jm),t(jm+l)))-ep)10,10,2 

2 t(jm)=temp 
xn=xn+xn 
n=n+n 

3 continue 
ke=ke+l 
go to 11 

10 t(l)=temp 

11 romb=romb+t(l) 
tempi =tempu 

4 continue 

5 romb=romb*dlx 

6 return 
end 


FUNCTION F101(U1) 

COMMON F1,F2,F3,F4,F5 

DENI = (Fl*((Ul**Z)+(2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI = (FI *((U 1 * *2.)+(4. *U1 *F1 )+(4. *F1)))/DEN 1 

F101 = AUDI 

RETURN 

END 

FUNCTION F102(U2) 

COMMON F1,F2 f3,F4f5 

DEN2 = (F2*((U2**2.)+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 

AUD2 = F2*((U2 * *2. )+(4. *U2 *F2)+(4. *F2))/DEN2 

FI 02 = AUD2 

RETURN 

END 
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FUNCTION F103(U3) 

COMMON FI ,F2 J3 J4 J5 

dEN3 =(F3 *((U3 **2.)+(2. *U3)+2.)+U3)*(U3+(2. *F3)) 
AUD3 = (F3*((U3**2.)+(4.*U3*F3)+(4.*F3)))/DEN3 

F103 = AUD3 

RETURN 

END 

FUNCTION F104(U4) 

COMMON F1,F2,F3,F4,F5 

DEN4 =(F4*((U4**2.)+(2.*U4)+2.)+U4)*(U4+(2.*F4)) 

AUD4 * (F4*((U4**2.)-K4.*U4*F4)+(4. .*F4)))/DEN4 

F104 =AUD4 

RETURN 

END 

FUNCTION F105(U5) 

COMMON F1.F2E3.F4JF5 

DENS = (F5 *((U5 * *2.)+(2. *U5)+2.)+U5)*(U5+(2.*F5)) 
AUD5 = (F5*((U5**2.)+(4.*U5*F5)+(4.*F5)))/DEN5 

F105 = AUD5 

RETURN 

END 

FUNCTION FU1(U1) 

COMMON F1,F2,F3,F4,F5 

DENI = (FI * ((U 1 * *2.)+(2. *U l)+2.)+U 1)*(U l+(2- *F1)) 

AUDI * (FI * ((U 1 * *2.)+(4. *U 1 *Fl)+(4. *F1)))/DEN1 

Fill = AUDI *U1 

RETURN 

END 

FUNCTION F112(U2) 

COMMON F1,F2,F3,F4,F5 

DEN2 = (F2*((U2*U2 )+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 

AUD2 = (F2*((U2*U2 )+(4.*U2*F2)+(4.*F2)))/DEN2 

F112 = AUD2*U2 

RETURN 

END 

FUNCTION F113(U3) 

COMMON F1,F2,F3,F4,F5 

DEN3 = (F3*((U3**2.)+(2.*U3)+2.)+U3)* (U3+(2.*F3)) 
AUD3 = (F3 *((U3 * *2.)+(4.*U3 *F3)+(4. *F3)))/DEN3 

F113 = AUD3*U3 

RETURN 

END 

FUNCTION F114(U4) 

COMMON FI, F2,F3,F4,F5 

DEN4 = (F4*((U4**2.)+(2.*U4)+2.)+U4)* (U4+(2.*F4)) 

AUD4 = (F4*((U4**2.)+(4.*U4*F4)+(4.*F4)))/DEN4 

F114 = AUD4*U4 

RETURN 

END 
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FUNCTION F115(U5) 

COMMON F1,F2,F3JF4,F5 

DEN5 = (F5 *((U5 • *2.)+(2. *U5)+2.)+U5) * (U5+(2.*F5)) 

AUD5 = (F5 *((U5 * *2.)+(4. *U5 *F5)+(4. *F5)))/DEN5 

F115 = AUD*U5 

RETURN 

END 

FUNCTION F121(U1) 

COMMON F1,F2J3,F4E5 

DENI = (Fl*((Ul**2.)+(2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI = (FI *((U 1 * * 2.)+(4. *U 1 *Fl)+(4. *F1)))/DEN I 

F121 = AUD1*U1*U1 

RETURN 

END 

FUNCTION F122(U2) 

COMMON F1,F2E3,F4,F5 

DEN2 = (F2*((U2**2.)+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 

AUD2 = (F2*((U2 * *2.)+(4. *U2*F2)+(4. *F2)))/DEN2 

F122 = AUD2*U2*U2 

RETURN 

END 

FUNCTION F123(U3) 

COMMON F1,F2,F3,F4E5 

DEN3 = (F3*((U3**2.)+(2.*U3)+2.)+U3)*(U3+(2.*F3)) 

AUD3 = (F3*((U3 * *2.)+(4. »U3 *F3)+(4. *F3)))/DEN3 

F123 = AUD3*U3*U3 

RETURN 

END 

FUNCTION F124(U4) 

COMMON F1,F2E3,F4,F5 

DEN4 = (F4*((U 4 * *2.)+(2. *U4)+2.)+U4)*(U4+(2. *F4)) 

AUD4 = (F4*((U4**2.)+(4.*U4*F4)+(4.*F4)))/DEN4 

F124 = AUD4*U4*U4 

RETURN 

END 

FUNCTION F125(U5) 

COMMON F1,F2E3,F4E5 

DEN5 = (F5 *((U5 * *2.)+(2. *U5)+2.)+U5)*(U5+(2. *F5)) 

AUD5 = (F5 *((U5 * *2.)+(4. *U5 *F5)+(4. *F5)))/DEN5 

F125 = AUD5*U5*U5 

RETURN 

END 

FUNCTION F131(U1) 

COMMON F1,F2E3,F4E5 

DENI = (Fl*((Ul**2.)+(2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 
AUDI = (FI *((U 1 * *2.)+(4. *U1 *Fl)+(4. *F1)))/DEN 1 
F131 = AUD1*U1**3. 

RETURN 

END 


227 



FUNCTION F132(U2) 

COMMON F1,F2,F3,F4,F5 

DEN2 * (F2*((U2**2.)+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 
AUD2 = (F2*((U2* *2.)+(4. *U2*F2)+(4. *F2)))/DEN2 
F132 * AUD2*U2**3. 

RETURN 

END 

FUNCTION F133(U3) 

COMMON F1,F2,F3,F4,F5 

DEN3 = (F3*((U3**2)+(2.*U3)+2.)+U3)*(U3+(2.*F3)) 
AUD3 = (F3*((U3**2.)+(4.*U3*F3)+(4.*F3)))/DEN3 
F133 = AUD3*U3**3. 

RETURN 

END 

FUNCTION F134(U4) 

COMMON F1,F2,F3,F4,F5 

DEN4 * (F4*((U4**2.)+(2.*U4)+2.)+U4)*(U4+(2.*F4)) 

AUD4 = (F4*((U4**2.)+(4.*U4*F4)+(4.*F4)))/DEN4 

F134 = AUD4*U4**3 

RETURN 

END 

FUNCTION F135(U5) 

COMMON F1,F2,F3,F4,F5 

DEN5 = (F5*((U5**2.)+{2.*U5)+2.)+U5)*(U5+(2.*F5)) 

AUD5 = (F5 *((U5 * *2.)+(4. *U5 *F5)+(4. *F5)))/DEN5 

F135 = AUD5*U5**3 

RETURN 

END 

FUNCTION F141(U1) 

COMMON F1,F2,F3,F4,F5 

DENI = (Fl*((Ul**2.)+(2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 
AUDI = (F1*((U1**2.)+( 4 * U1 * F1 ) + ( 4 * F1 ))) /DEN1 
F141 = AUDI *U 1**4. 

RETURN 

END 

FUNCTION F142(U2) 

COMMON F1,F2,F3,F4 > F5 

DEN2 = (F2*((U2**2.)+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 

AUD2 = (F2*((U2**2.)+(4.*U2*F2)+(4.*F2)))/DEN2 

FI 42 = AUD2*U2*U2*U2*U2 

RETURN 

END 

FUNCTION F143(U3) 

COMMON F1.F2F3.F4J5 

DEN3 = (F3*((U3**2.)+(2.*U3)+2.)+U3)*(U3+(2.*F3)) 

AUD3 = (F3*((U3**2.)+(4.*U3*F3)+( 4 * F3 ))V DEN3 
F143 = AUD3*U3**4. 

RETURN 

END 
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FUNCTION F144(U4) 

COMMON FI J2J3 J4J5 

DEN4 = (F4*((U4* *2.)+(2. *U4)+2.)+U4)*(U4+(2. *F4)) 
AUD4 = (F4*((U4**2.)+(4.*U4*F4)+(4.*F4)))/DEN4 
F144 - AUD4*U4**4. 

RETURN 

END 

FUNCTION F145(U5) 

COMMON F1,F2J3,F4 > F5 

DENS = (F5*((U5**2.)+(2.*U5)+2)+U5)*(U5+(2.*F5)) 
AUD5 = (F5 *((U5 * *2.)+(4. *U5 *F5)+(4.*F5)))/DEN5 
F145 = AUD5*U5**4. 

RETURN 

END 
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NONGRAY RESULTS FOR H2O 


TW P 

L 

TBULK (NLTE) 

TBULKL (LTE) 

300.00 

0.10 

0.10 

0.2429E+00 

0.2428E+00 

300.00 

0.10 

0.50 

0.2428E+00 

0.2423E+00 

300.00 

0.10 

1.00 

0.2427E+00 

0.2411E+00 

300.00 

0.10 

5.00 

0.2393E+00 

0.2215E+00 

300.00 

0.10 

10.00 

0.2309E+00 

0.1916E+00 

300.00 

0.10 

20.00 

0.2062E+00 

0.1414E+00 

300.00 

0.10 

50.00 

0.1263E+00 

0.7024E-01 

300.00 

0.10 

75.00 

0.8345E-01 

0.4758E-01 

300.00 

0.10 

100.00 

03821E-01 

0.3550E-01 

300.00 

1.00 

0.10 

0.2427E+00 

0.2426E+00 

300.00 

1.00 

0.50 

0.2404E+00 

0.2389E+00 

300.00 

1.00 

1.00 

0.2352E+00 

0.2315E+00 

300.00 

1.00 

5.00 

0.1819E+00 

0.1749E+00 

300.00 

1.00 

10.00 

0.1352E+00 

0.1312E+00 

300.00 

1.00 

20.00 

0.8646E-01 

0.8498E-01 

300.00 

1.00 

50.00 

0.3852E-01 

0.3821E-01 

300.00 

1.00 

75.00 

0.2545E-01 

0.2530E-01 

300.00 

1.00 

100.00 

0.1876E-01 

0.1866E-01 

300.00 

5.00 

0.10 

0.2421E+00 

0.2420E+00 

300.00 

5.00 

030 

0.2348E+00 

0.2345E+00 

300.00 

5.00 

1.00 

0.2247E+00 

0.2245E+00 

300.00 

5.00 

5.00 

0.1611E+00 

0.1610E+00 

300.00 

5.00 

10.00 

0.1130E+00 

0.1129E+00 

300.00 

5.00 

20.00 

0.6707E-01 

0.6703E-01 

300.00 

5.00 

50.00 

0.2890E-01 

0.2889E-01 

300.00 

5.00 

75.00 

0.1953E-01 

0.1953E-01 

300.00 

5.00 

100.00 

0.1476E-01 

0.1476E-01 

300.00 

10.00 

0.10 

0.241 7E+00 

0.2416E+00 

300.00 

10.00 

0.50 

0.2334E+00 

0.2333E+00 

300.00 

10.00 

1.00 

0.2229E+00 

0.2229E+00 

300.00 

10.00 

5.00 

0.1537E+00 

0.1537E+00 

300.00 

10.00 

10.00 

0.1043E+00 

0.1043E+00 

300.00 

10.00 

20.00 

0.6151E-01 

0.6150E-01 

300.00 

10.00 

50.00 

0.2745E-01 

0.2745E-01 

300.00 

10.00 

75.00 

0.1889E-01 

0.1889E-01 

300.00 

10.00 

100.0C 

l 0.1445E-01 

0.1445E-01 

500.00 

0.10 

0.10 

0.2428E+00 

0.2428E+00 

500.00 

0.10 

030 

0.2426E+00 

0.2414E+00 

500.00 

0.10 

1.00 

0.2417E+00 

0.2377E+00 

500.00 

0.10 

5.00 

0.2226E+00 

0.1833E+00 

500.00 

0.10 

10.00 

0.1855E+00 

0.1257E+00 

500.00 

0.10 

20.00 

0.1187E+00 

0.6809E-01 

500.00 

0.10 

50.00 

0.3785E-01 

0.2349E-01 

500.00 

0.10 

75.00 

0.2009E-01 

0.1415E-01 
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500.00 0.10 100.00 0.1280E-01 0.9859E-02 

500.00 1.00 0.10 0.2424E+00 0.2422E+00 

500.00 1.00 030 0.2332E+00 0.2304E+00 

500.00 1.00 1.00 0.2125E+00 0.2059E+00 

500.00 1.00 5.00 0.8986E-01 0.8524E-01 

500.00 1.00 10.00 0.4797E-01 0.4674E-01 

500.00 1.00 20.00 0.2471E-01 0.2446E-01 

500.00 1.00 50.00 0.1012E-01 0.1006E-01 

500.00 1.00 75.00 0.6790&-02 0.6752E-02 

500.00 1.00 100.00 03109E-02 0.5083E-02 

500.00 5.00 0.10 0.2403E+00 0.2402E+00 

500.00 5.00 030 0.2104E+00 0.2097E+00 


500.00 

5.00 

1.00 

500.00 

5.00 

5.00 

500.00 

5.00 

10.00 

500.00 

5.00 

20.00 

500.00 

5.00 

50.00 

500.00 

5.00 

75.00 

500.00 

5.00 

100.00 

500.00 

10.00 

0.10 

500.00 

10.00 

0.50 

500.00 

10.00 

1.00 

500.00 

10.00 

5.00 

500.00 

10.00 

10.00 

500.00 

10.00 

20.00 

500.00 

10.00 

50.00 

500.00 

10.00 

75.00 

500.00 

10.00 

100.00 

1000.00 

0.10 

0.10 

1000.00 

0.10 

0.50 

1000.00 

0.10 

1.00 

1000.00 

0.10 

5.00 

1000.00 

0.10 

10.00 

1000.00 

0.10 

20.00 

1000.00 

0.10 

50.00 

1000.00 

0.10 

75.00 

1000.00 

0.10 

100.00 

1000.00 

1.00 

0.10 

1000.00 

1.00 

0.50 

1000.00 

1.00 

1.00 

1000.00 

1.00 

5.00 

1000.00 

1.00 

10.00 

1000.00 

1.00 

20.00 

1000.00 

1.00 

50.00 

1000.00 

1.00 

75.00 

1000.00 

1.00 

100.00 

1000.00 

5.00 

0.10 

1000.00 

5.00 

0.50 

1000.00 

5.00 

1.00 


0.1735E+00 0.1729E+00 
0.6908E-01 0.6907E-01 
0.3999E-01 0.3997E-01 
0.2200E-01 0.2199E-01 
0.9510E-02 0.9506E-02 
0.6484E-02 0.6481E-02 
0.4925E-02 0.4923E-02 
0.2384E+00 0.2384E+00 
0.2020E+00 0.2019E+00 
0.1653E+00 0.1652E+00 
0.6768E-01 0.6768E-01 
0.3973E-01 0.3972E-01 
0.2207E-01 0.2206E-01 
0.9587E-02 0.9585E-02 
0.6537E-02 0.6536E-02 
0.4964E-02 0.4963E-02 
0.2428E+00 0.2428E+00 
0.2422E+00 0.2412E+00 
0.2403E+00 0.2368E+00 
0.1975E+00 0.1635E+00 
0.1341E+00 0.9611E-01 
0.6480E-01 0.4469E-01 
0.1700E-01 0.1350E-01 
0.8955E-02 0.7653E-02 
0.5706E-02 03078E-02 
0.2423E+00 0.2422E+00 
0.2294E+00 0.2279E+00 
0.1989E+00 0.1950E+00 
03104E-01 0.4876E-01 
0.2090E-01 0.2032E-01 
0.8783E-02 0.8667E-02 
0.3025 E-02 0.3012E-02 
0.1934E-02 0.1929E-02 
0.1418E-02 0.1415E-02 
0.2397E+00 0.2396E+00 
0.1911E+00 0.1904E+00 
0.1295E+00 0.1288E+00 
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1000.00 5.00 5.00 0.2636E-01 0.2632E-01 

1000.00 5.00 10.00 0.1272E-01 0.1272E-01 

1000.00 5.00 20.00 0.6249E-02 0.6246E-02 

1000.00 5.00 50.00 0.2492E-02 0.2491E-O2 

1000.00 5.00 75.00 0.1668E-02 0.1667E-02 

1000.00 5.00 100.00 0.1255E-02 0.1255E-02 

1000.00 10.00 0.10 0.2369E+00 0.2368E+00 

1000.00 10.00 0.50 0.1684E+00 0.1681E+00 

1000.00 10.00 1.00 0.1070E+00 0.1068E+00 

1000.00 10.00 5.00 0.2373E-01 0.2373E-01 

1000.00 10.00 10.00 0.1202E-01 0.1202E-01 

1000.00 10.00 20.00 0.6095E-02 0.6094E-02 

1000.00 10.00 50.00 0.2488E-02 0.2488E-02 

1000.00 10.00 75.00 0.1674E-02 0.1674E-02 

1000.00 10.00 100.00 0.1263E-02 0.1263E-02 

2000.00 0.10 0.10 0.2428E+00 0.2428E+00 

2000.00 0.10 0.50 0.2423E+00 0.2419E+00 

2000.00 0.10 1.00 0.2407E+00 0.2393E+00 

2000.00 0.10 5.00 0.2015E+00 0.1845E+00 

2000.00 0.10 10.00 0.1385E+00 0.1160E+00 

2000.00 0.10 20.00 0.6686E-01 0.5490E-01 

2000.00 0.10 50.00 0.1909E-01 -.1867E-01 

2000.00 0.10 75.00 0.7382E-02 0.5546E-02 

2000.00 0.10 100.00 0.5626E-02 0.4192E-02 

2000.00 1.00 0.10 0.2425E+00 0.2425E+00 

2000.00 1.00 0.50 0.2345E+00 0.2340E+00 

2000.00 1.00 1.00 0.2133E+00 0.2118E+00 

2000.00 1.00 5.00 0.6285E-01 0.6126E-01 

2000.00 1.00 10.00 0.2424E-01 0.2444E-01 

2000.00 1.00 20.00 -.9451E-03 0.7439E-03 

2000.00 1.00 50.00 0.1477E-02 0.1416E-02 

2000.00 1.00 75.00 0.8948E-03 0.8675E-03 

2000.00 1.00 100.00 0.6293E-03 0.6142E-03 

2000.00 5.00 0.10 0.2410E+00 0.2410E+00 

2000.00 5.00 0.50 0.2064E+00 0.2061E+00 

2000.00 5.00 1.00 0.1473E+00 0.1469E+00 

2000.00 5.00 5.00 0.2678E-01 0.2708E-01 

2000.00 5.00 10.00 0.3265E-02 0.3264E-02 

2000.00 5.00 20.00 0.2381E-02 0.2365E-02 

2000.00 5.00 50.00 0.8647E-03 0.8621E-03 

2000.00 5.00 75.00 0.5466E-03 0.5455E-03 

2000.00 5.00 100.00 0.3947E-O3 0.3941E-03 

2000.00 10.00 0.10 0.2392E+00 0.2392E+00 

2000.00 10.00 0.50 0.1830E+00 0.1828E+00 

2000.00 10.00 1.00 0.1143E+00 0.1141E+00 

2000.00 10.00 5.00 -4760E+00 -.2229E+00 

2000.00 10.00 10.00 0.4333E-02 0.4318E-02 

2000.00 10.00 20.00 0.2160E-02 0.2157E-02 

2000.00 10.00 50.00 0.7773E-03 0.7767E-03 
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2000.00 

2000.00 


10.00 75.00 0.4927E-03 0.4924E-03 
10.00 100.00 0.3569E-03 0.3567E-03 
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c Computer Code to calculate Radiative Heat Interaction between two 

c Parallel Plates(Flow is assumed to be fully developed) 

c CH4 is the participating gas and two bands of CH4 are considered 

cThis proram is written on the basis of NonGray Gas approximation and can 

c calculate both LTE and NLTE bulk temp. 

c This pr ogr a m is written by Manoj K. Jha in September 1991 


c implicit double precision (a-h,o-z) 
real l,kfb 

EXTERNAL F101,F102,F111,F112,F121,F122,F131,F132, 
♦F141J142 

dimension u(9),pres(4),Temp(4),eps(3) 
dateu/0.1,0^,1.0^.0,10.0^0.040.0,75.,100.0/ 

DATA PRES/0.1,1.,5.,10.0/ 

DATA TEMP/300.,500.,1000.0,2000.0/ 

COMMON F1.F2 
OPEN(6,file= ’output5 ’) 
open(7,file= ’nip’) 
open(8,file= , lp’) 

WRTTE(6,111) 
write(7,13) 
write(7,*) 11,1 

13 forma^’SV.’xV.’tV. ’tlV.^.’l’) 

write(8,14) 
write(8,*) 11,1 

14 format(’2’,/,’x’,/,’t’,/, AH*/!’) 
do 101 it=l,4 

tw=temp(it) 
do 202 kk=l,4 
p=pres(kk) 
do 303 i=l,9 
l=u(i) 

c 

c Calculation of Plank’s Function and it’s derivative 

c wnb Band Center 
c hck Constant 

c ccc cl*c2 (erg_k_cm**3/sec) 
c pfdbi Plank’s Function’s derivative for ith band 

‘ ' ‘ 

tkl=tw**2 
tk2=tw**0J 
tk3=tw/273.0 
hck=l .439257246 
ts=300.0/tw 

c— 

c Spectroscopic Properties of CH4 
c Two Bands of CH4 are cosidered(7.6 and 3.3 microns) 
c wnbi Band Center (1/cm) 
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wnbl=1310. 

wnb2=3020. 

c2bl=hck*wnbl 

c2b2=hck*wnb2 

ccc=0.000053847734 

ccbl=ccc*(wnbl * *4) 

ccb2=ccc * (wnb2 * * 4) 

tbl=c2bl/tw 

tb2=c2b2/tw 

lcbl= exp(tbl) 

tcb2= exp(tb2) 

clbl=ccbl/c2bl 

clb2=ccb2/c2b2 

pfbl=clbl/(tebl— 1.0) 

pfb2=clb2/(teb2-1.0) 

dev 1 =tk 1 *((teb 1-1 .0) * *2.0) 

dev2=tkl *((teb2-1.0)**2.0) 

pfdbl=(ccbl*tebl)/devl 

pfdb2=(ccb2*teb2)/dcv2 


c — 

c Band Model Correlations (Tien & Lowder wide band model) 

c azi aoi (1/cm) 

c czsi coi**2 (1/atm-cm) 

c bsi b**2 (Nondimensional) 

c omegi Wave Number (1/cm) 

c si Integrated Band Intensity (1/atm cm**2) 


akl=(tw/300.)**0.5 

ak2=(300./tw)**1.5 

azl=39.8*akl 

az2=95.3*akl 


c dkf Thermal Conductivity (Erg/cm -sec-k) 


kfb=(1488.365171)*(tk3**1.23) 

czsl=4.58*ak2 

czs2=3.15*ak2 

sl=azl*czl 

s2=az2*cz2 


C PL PRESSURE PATH LENGTH (ATM-CM) 

C 

PL = P* L 
UZ1 = CZSI *PL 
UZ2 = CZS2*PL 
bsl = 0.067*akl 
BS2 = 0.036*AK1 
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u 0 OuO 


PH EFFEC TIVE PRESSURE FOR EACH BAND (NON DIMENSIONAL) 


PEI * (1.3*P)**0.8 
PE2 = (1.3*P)**0.8 


BETAI LINE STRUCTURE PARAMETR 


BETA1 = BSl’PEl 
BETA2 = BS2*PE2 

C 

C CORRELATION FOR EACH BAND 

C 

FI = 2.94*(1.0- EXP(-(2.6*BErAl))) 

F2 = 2.94*(1.0- EXP(-(2.6*BETA2))) 

C- 

C NUMERICAL INTEGRATION 

C- 

EPS(2) = IE-04 
EPS(1) = IE-04 
EP = l.E-5 
XI = 0.0 

X21 ■ (3./8.)*UZl 
X22 = (3./8.)*UZ2 
Yll = 1.5*UZ1 
Y12 = 1.5*UZ2 
Y21 = 3.0*X21 
Y22 = 3.0*X22 

CALL QDAGS (F101 < X1,Y11EPS(2),EPS(1) > R01 ( IERR) 
CALL QDAGS (F102^C1,Y12,EPS(2) ( EPS(1) ,R02,IERR) 
CALL QDAGS(Flll^a,Y113PS(2),EPS(l)4m4ERR) 
CALL QDAGS(F112X1,Y12 > EPS{2) ( EPS(1),R12JERR) 
CALL QDAGS(F121X1 ,YU ,EPS(2),EPS{1),R21 ( IERR) 
CALL QDAGS(F122X1,Y12EPS(2)3PS(1),R22 > IERR) 

CALL QDAGS(F131,X1,Y11,EPS(2),EPS(1),R3UERR) 
CALL QDAGS(F132 r Xl,Y12 > EPS(2) ( EPS(l),R32,IERR) 
CALL QDAGS(F141^1,Y11JEPS{2),EPS(1),R41,IERR) 
CALL QDAGS(F142^a > Y123PS(2)3PS(l)^42 > IERR) 
CALL QDAGS(F101,X21,Y21,EPS(2) ( EPS(1),S11,IERR) 
CALL QDAGS(F 1 02 r X22,Y22,EPS{2),EPS( 1 ),S 1 2JERR) 
CALL QDAGS(F111,X1,X21,EPS(2),EPS(1),S21,IERR) 
CALL QDAGS(F112PC1PC22,EPS(2)JBPS(1),S22 > IERR) 
CALL QDAGS(F1 1 1 ,X1 ,Y21,EPS(2),EPS(1),S31 ,IERR) 
CALL QDAGS(F112,X1,Y22 > EPS(2),EPS(1) ( S32JERR) 
CALL QDAGS(F121^21,Y21,EPS(2)3PS(1),S41JERR) 
CALL QDAGS(F122^22,Y22 > EPS(2) ( EPS{1),S42 > IERR) 
CALL QDAGS(F131^1^213PS(2) > EPS(1),S5UERR) 
CALL QDAGS(F132X1 > X22,EPS(2)3PS(1) > S52JERR) 
CALL QDAGS(F131,X1,Y21,EPS(2),EPS(1),S61 > IERR) 
CALL QDAGS(F132,X1,Y22,EPS(2) > EPS(1)*S62JERR) 
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CALL QDAGS(F1 41.X21 ,Y21 ,EPS(2),EPS(1),S71 JERR) 

CALL QDAGS(F142,X22,Y22JEPS(2),EPS(1),S72JERR) 

H1=AZ1*PFDB1 

H2=AZ2*PFDB2 

H=H1+H2+H3 

AM=(H*L)/KFB 

CU1 = 2./(3.*UZl) 

CU2 = 2./(3.*UZ2) 

BR1A1 = (CU1*R11)-2.*(CU1**3.)*R31+(CU1**4.)*R41 
BR1A2 = (CU2*R12)-2.*(CU2* *3.)*R32+(CU2**4.)*R42 
BR1B1=((CU1**2.)*R21)-(CU1*R11) 
BR1B2=((CU2**2.)*R22)-(CU2*R12) 

ETC1 =((40. *(TW* *(-l/3.)))-5.4) 

ETC2=EXP(ETCl)*(l.E-6) 

ETAC=ETC2/P 

ETRll=8.*3.14*(1310.**(2.))*4.08*(l.E-12)*sl*tw 

ETAR1=1./ETR11 

ETR12=8.*3.14*(3020.**(2.))*4.08*(l.E-12)*s2*tw 

ETAR2=1./ETR12 

ETA11 =ETAC/ETAR1 

ETA12=ETAC/ETAR2 

SUMA1 = H1*BR1A1 

SUMA2 = H2*BR1A2 

SUMAL=SUMA1 +SUMA2 

AL1L = l.+(L/KFB)*SUMAL 

SUMAN1=ETA11*CU1*BR1B1 

SUMAN2=ETA12*CU2*BR1B2 

SUMAN=(9./2.)*(SUMAN1+SUMAN2) 

ALPH 1 = AL 1 L-SUMAN 

BR2A1 = (CU1**2.)*R21-2*(CU1**3.)*R31+(CU1**4.)*R41 
BR2A2 = (CU2**2.)*R22-2.*(CU2**3.)*R32+(CU2**4.)*R42 
BR2B1=R01-(6.*CU1*R11)+(6.*(CU1**2.)*R21) 
BR2B2=R02-(6. *CU2*R12)+(6.*(CU2**2.)*R22) 

SUMB1 = H1*BR2A1 
SUMB2 = H2*BR2A2 
SUMBL=SUMB1+SUMB2 
SUMBN1=ETA11 *CU1 *BR2B1 
SUMBN2=ETA12*CU2*BR2B2 
SUM BN =(3 ./4. ) * (SUMBN 1 + SUMBN2) 

AL2L = (L/KFB)*SUMBL 
ALPH2=AL2L-SUMBN 
ALPH01=ETA11*(CU1**2.)*(CU1*R21-R11) 
ALPH02=ETA12*(CU2**2.)*(CU2*R22-R12) 

ALPH0=(9./2.) *(ALPH01 +ALPH02)-1 . 

BR3A1 = (57./256.)*Sll+(ll./16.)*CUl*(S21+S31) 
*-(9./8.)*(CUl**2.)*S41-(CUl**3.)*(S51+S61)+(CUl**4.)*S71 
BR3A2 = (57./256.)*S12+(ll./16.)*CU2*(S22+S32) 
*-(9./8.)*(CU2**2.)*S42-(CU2**3.)*(S52+S62)+(CU2**4.)*S72 
BR3B1 =((9./4.)*CU 1 *Sll)+(6. *(CU 1 * *2.)*(S21+S31)) 


237 



*-(12*(CUl * *3.)*S41) 

BR3B2=((9./4.)*CU2*S12)+(6.*(CU2**2.)*(S22+S32)) 

*-{12*(CU2**3.)*S42) 

SUMC1 = H1*BR3A1 
SUMC2 = H2*BR3A2 
SUMCL=SUMC1 +SUMC2 
SUMCN1-ETA11 *BR3B1 
SUMCN2=ETA12*BR3B2 
SUMCN=(3./8.)*(SUMCN1+SUMCN2) 

AL3L *(11./16.)-K L/KFB)*SUMCL 
ALPH3=AL3L+SUMCN 

BR4A1 = (9.0/256.)*Sll+(3.0/16.)*CUl*(S21+S31) 

*-(l ./8.)*(CU 1 * *2.)*S41-(CU 1 * *3.)*(S5 1 +S61)+(CU 1 * *4.)*S71 
BR4A2 = (9.0/256.)*S12+(3.0/16.)*CU2*(S22+S32) 
*-<l./8.)*(CU2**2.)*S42-{CU2**3.)*(S52+S62)+(CU2**4.)*S72 
BR4B1=((1./4.)*CU1*S11)+(6.*(CU1**2.)*(S21+S31)y- 
*(12.*(CU1**3.)*S41) 

BR4B2=((l./4.)*CU2*S12)+(6. *(CU2* *2.)*(S22+S32)>- 
*(12.*(CU2**3.)*S42) 

SUMD1 - H1*BR4A1 
SUMD2 = H2*BR4A2 
SUMDL=SUMD1 +SUMD2 
SUMDN 1 =ETA11 *BR4B1 
SUMDN2=ETA 1 2 * BR4B2 
SUMDN=(3./8.)*(SUMDN1 +SUMDN2) 

AL4L = (3.0/16.)+(L/KFB)*SUMDL 
ALPH4=AL4L+SUMDN 

BR5B1=(3./16.)*(CU1*S11)+(1./2.)*(CU1**2.)*(S21+S31)-(CU1**3.)*S41 

BR5B2=(3./16.)*(CU2*S12)+(1./2.)*(CU2**2.)*(S22+S32)-(CU2**3.)*S42 

SUMEN1=ETA11 *BR5B1 
SUMEN2=ETA12*BR5B2 
SUMEN =SUMEN 1 +SUMEN2 
ALPH5=-((9./2.)*SUMEN+(ll./16.)) 

DENA = (ALPH1 * ALPH4)-(ALPH2* ALPH3) 

A1 =((ALPH0*ALPH4)-(ALPH2 * ALPH5 ))/DEN A 
A2=((ALPH1 * ALPH5HALPH0 *ALPH3))/DENA 
TBULK = (l./70.)*((17.*Al)+(3.*A2)) 
C0NST=1./(16.*(AL1L*AL4L-AL2L*AL3L)) 
all^ll.'alTI— 16.*al41)*CONST 
A2L=(16.*AL3Hl.*ALlL)*CONST 
TBULKL=(1/70.)*(17.*A1L+3.*A2L) 

WRITE(6,200) TW4>,L,-TBULK,-TBULKL 
writc(7 ,203)1 ,-tbulkl ,-tt>ulk 
writc(8,20 1 )1 ,-tbulk 
303 CONTINUE 
202 CONTINUE 
101 CONTINUE 

200 FORMAT(lX,F7.2, 3XJ6.2, 3XJ6.2, 2(3X,E10.4)) 

111 FORMAT(4X, TW’ ,8X, ’P ’ ,6X, *L’ ,9X, TBULK’.TX.TBULKL’) 
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201 format (Ix,f9.2,3x,el0.4) 
203 format (Ix,f9.2,2(3x,el0.4)) 
STOP 
END 


FUNCTION F101(U1) 

COMMON F1.F2 

DENI = (FI *((U 1 * *2.)+(2. *Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI = (FI *((U 1 * *2.)+(4. *U1 *Fl)+(4. *F1)))/DEN 1 

F101 = AUDI 

RETURN 

END 

FUNCTION F102(U2) 

COMMON F1JF2 

DEN2 = (F2*((U2* *2.)+(2. *U2)+2.)+U2)*(U2+(2. *F2)) 

AUD2 = F2*((U2**2.)+(4.*U2*F2)+(4.*F2))/DEN2 

F102 = AUD2 

RETURN 

END 

FUNCTION F111(U1) 

COMMON F1F2 

DENI = (Fl*((Ul**2.)+(2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI = (FI *((U 1 * *2.)+(4. *U1 *Fl)+(4. *F1)))/DEN 1 

Fill = AUDI *U1 

RETURN 

END 

FUNCTION F112(U2) 

COMMON F1J2 

DEN2 = (F2*((U2*U2 )+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 

AUD2 = (F2*((U2*U2 )+(4.*U2*F2)+(4.*F2)))/DEN2 

F112 = AUD2*U2 

RETURN 

END 

FUNCTION F121(U1) 

COMMON F1F2 

DENI = (Fl*((Ul**2.)+(2.*Ul)+2.)+Ul)*(Ul+(2.*Fl)) 

AUDI = (FI *((U 1**2. )+(4. *U 1 *F1 )+(4. *F1 )))/DEN 1 

F121 = AUD1*U1*U1 

RETURN 

END 

FUNCTION F122(U2) 

COMMON FIJ^ 

DEN2 = (F2*((U2**2.)+(2.*U2)+2.)+U2)*(U2+(2.*F2)) 
AUD2 = (F2*((U2**2.)+(4.*U2*F2)+(4.*F2)))/DEN2 
F122 = AUD2*U2**2. 

RETURN 

END 

FUNCTION F131(U1) 

COMMON F1J2 
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DENI = (Fl*((Ul**2.)+(2.*Ul)+2)+Ul)*(Ul+(2.*Fl)) 
AUDI = (FI *((U 1 * *2.)+(4.*U 1 *Fl)+(4. *F1)))/DEN 1 
F131 = AUD1*U1**3. 

RETURN 

END 

FUNCTION F132(U2) 

COMMON F1.F2 

DEN2 = (F2*((U2**2.)+(2.*U2)+2.)+ U2 )*( U2 +(2.*F2)) 
AUD2 = (F2*((U 2 * *2.)+(4.*U 2 *F 2 )+(4.*F 2 )))/DEN 2 
F132 = AUD2*U 2 **3. 

RETURN 

END 

FUNCTION F141(U1) 

COMMON FI 

DENI = (Fl*((Ul** 2 .)+(2.*Ul)+ 2 .)+Ul)*(Ul+( 2 .*Fl)) 
AUDI = (FI *((U1 **2.)+(4. , Ul *F1)+(4.*F1)))/DEN1 
F141 = AUD1*U1**4. 

RETURN 

END 

FUNCTION F142(U 2 ) 

COMMON F1J2 

DEN2 = (F 2 *((U 2 **2.)+(2.*U 2 )+ 2 .)+U 2 )*(U 2 +( 2 .*F 2 )) 

AUD2 = (F2*((U2**2.)+(4.*U2*F2)+(4.*F2)))/DEN2 

F142 = AUD 2 *U 2 *U 2 *U2*U 2 

RETURN 

END 
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NONGRAY RESULTS FOR CH4 


TW P 

L 

TBULK (NLTE) 

TBULKL (LTE) 

300.00 

0.10 

0.10 

0.2428E+00 

0.2428E+00 

300.00 

0.10 

0.50 

0.2426E+00 

0.2426E+00 

300.00 

0.10 

1.00 

0.2421E+00 

0.2421E+00 

300.00 

0.10 

5.00 

0.2362E+00 

0.2362E+00 

300.00 

0.10 

10.00 

0.2236E+00 

0.2236E+00 

300.00 

0.10 

20.00 

0.1909E+00 

0.1909E+00 

300.00 

0.10 

50.00 

0.1126E+00 

0.1126E+00 

300.00 

0.10 

75.00 

0.7865E-01 

0.7865E-01 

300.00 

0.10 

100.00 

0.5912E-01 

0.5912E-01 

300.00 

1.00 

0.10 

0.2427E+00 

0.2427E+00 

300.00 

1.00 

0.50 

0.2405E+00 

0.2405E+00 

300.00 

1.00 

1.00 

0.2366E+00 

0.2366E+00 

300.00 

1.00 

5.00 

0.2000E+00 

0.2000E+00 

300.00 

1.00 

10.00 

0.1638E+00 

0.1638E+00 

300.00 

1.00 

20.00 

0.1192E+00 

0.1192E+00 

300.00 

1.00 

50.00 

0.6551E-01 

0.6551E-01 

300.00 

1.00 

75.00 

0.4776E-01 

0.4776E-01 

300.00 

1.00 

100.00 

0.3762E-01 

0.3762E-01 

300.00 

5.00 

0.10 

0.2421E+00 

0.2421E+00 

300.00 

5.00 

0.50 

0.2369E+00 

0.2369E+00 

300.00 

5.00 

1.00 

0.2301E+00 

0.2301E+00 

300.00 

5.00 

5.00 

0.1873E+00 

0.1873E+00 

300.00 

5.00 

10.00 

0.1524E+00 

0.1524E+00 

300.00 

5.00 

20.00 

0.1116E+00 

0.1116E+00 

300.00 

5.00 

50.00 

0.6256E-01 

0.6256E-01 

300.00 

5.00 

75.00 

0.4603E-01 

0.4603E-01 

300.00 

5.00 

100.00 

0.3647E-01 

0.3647E-01 

300.00 

10.00 

0.10 

0.2418E+00 

0.241 8E+00 

300.00 

10.00 

0.50 

0.2358E+00 

0.2358E+00 

300.00 

10.00 

1.00 

0.2288E+00 

0.2288E+00 

300.00 

10.00 

5.00 

0.1860E+00 

0.1860E+00 

300.00 

10.00 

10.00 

0.1515E+00 

0.1515E+00 

300.00 

10.00 

20.00 

0.1110E+00 

0.1110E+00 

300.00 

10.00 

50.00 

0.623 7E-01 

0.6237E-01 

300.00 

10.00 

75.00 

0.4592E-01 

0.4592E-O1 

300.00 

10.00 

100.00 

0.3640 E-01 

0.3640E-01 

500.00 

0.10 

0.10 

0.2428E+00 

0.2428E+00 

500.00 

0.10 

0.50 

0.2420E+00 

0.2420E+00 

500.00 

0.10 

1.00 

0.2403E+00 

0.2403E+00 

500.00 

0.10 

5.00 

0.2214E+00 

0.2214E+00 

500.00 

0.10 

10.00 

0.1925E+00 

0.1925E+00 

500.00 

0.10 

20.00 

0.1370E+00 

0.1370E+00 

500.00 

0.10 

50.00 

0.5533E-01 

0.5533E-01 

500.00 

0.10 

75.00 

0.3292E-01 

0.3292E-01 
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500.00 0.10 100.00 0.2243E-01 0.2243E-01 

500.00 1.00 0.10 0.2424E+00 0.2424E+00 

500.00 1.00 050 0.2358E+00 0.2358E+00 

500.00 1.00 1.00 0.2235E+00 0.2235E+00 

500.00 1.00 5.00 0.1348E+00 0.1348E+00 

500.00 1.00 10.00 0.8414E-01 0.8414E-01 

500.00 1.00 20.00 0.4670E-01 0.4670E-01 

500.00 1.00 50.00 0.1961E-01 0.1961E-01 

500.00 1.00 75.00 0.1315E-01 0.1315E-01 

500.00 1.00 100.00 0.9874E-02 0.9874E-02 

500.00 5.00 0.10 0.2410E+00 0.2410E+00 

500.00 5.00 050 0.2220E+00 0.2220E+00 

500.00 5.00 1.00 0.1981E+00 0.1981E+00 

500.00 5.00 5.00 0.1049E+00 0.1049E+00 

500.00 5.00 10.00 0.6676E-01 0.6676E-01 

500.00 5.00 20.00 0.3906E-01 0.3906E-01 

500.00 5.00 50.00 0.1758E-01 0.1758E-01 

500.00 5.00 75.00 0.1208E-01 0.1208E-01 

500.00 5.00 100.00 0.9208E-02 0.9208E-02 

500.00 10.00 0.10 0.2397E+00 0.2397E+00 

500.00 10.00 0.50 0.2163E+00 0.2163E+00 

500.00 10.00 1.00 0.1912E+00 0.1912E+00 

500.00 10.00 5.00 0.1016E+00 0.1016E+00 

500.00 10.00 10.00 0.6527E-01 0.6527E-01 

500.00 10.00 20.00 0.3849E-01 0.3849&-01 

500.00 10.00 50.00 0.1745E-01 0.1745E-01 

500.00 10.00 75.00 0.1201E-01 0.1201E-01 

500.00 10.00 100.00 0.9167E-02 0.9167E-02 

1000.00 0.10 0.10 0.2428E+00 0.2428E+00 

1000.00 0.10 0.50 0.2413E+00 0.2413E+00 

1000.00 0.10 1.00 0.2374E+00 0.2374E+00 

1000.00 0.10 5.00 0.1870E+00 0.1870E+00 

1000.00 0.10 10.00 0.1370E+00 0.1370E+00 

1000.00 0.10 20.00 0.8174E-01 0.8174E-01 

1000.00 0.10 50.00 0.2821E-01 0.2821E-01 

1000.00 0.10 75.00 0.1570E-01 0.1570E-01 

1000.00 0.10 100.00 0.1013E-01 0.1013E-01 

1000.00 1.00 0.10 0.2422E+00 0.2422E+00 

1000.00 1.00 0.50 0.2292E+00 0.2292E+00 

1000.00 1.00 1.00 0.2023E+00 0.2023E+00 

1000.00 1.00 5.00 0.7068E-01 0.7068E-01 

1000.00 1.00 10.00 0.3343E-01 0.3343E-01 

1000.00 1.00 20.00 0.1501E-01 0.1501E-01 

1000.00 1.00 50.00 0.5215E-02 0.5215E-02 

1000.00 1.00 75.00 0.3305E-02 0.3305E-02 

1000.00 1.00 100.00 0.2403E-02 0.2403E-02 

1000.00 5.00 0.10 0.2396E+00 0.2396E+00 

1000.00 5.00 0.50 0.1955E+00 0.1955E+00 

1000.00 5.00 1.00 0.1418E+00 0.1418E+00 
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1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

1000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 

2000.00 


5.00 

5.00 

03756E-01 

0.3756E-01 

5.00 

10.00 

0.1943E-01 

0.1943E-01 

5.00 

20.00 

0.9923E-02 

0.9923E-02 

5.00 

50.00 

0.4036E-02 

0.4036E-02 

5.00 

75.00 

0.2704E-02 

0.2704E-02 

5.00 

100.00 

0.2033E-02 

0.2033E-02 

10.00 

0.10 

0.2368E+00 

0.2368E+00 

10.00 

0.50 

0.1755E+00 

0.1755E+00 

10.00 

1.00 

0.1211E+00 

0.1211E+00 

10.00 

5.00 

0.3371E-01 

0.3371E-01 

10.00 

10.00 

0.1809E-01 

0.1809E-01 

10.00 

20.00 

0.9493E-02 

0.9493E-02 

10.00 

50.00 

0.3948E-02 

0.3948E-02 

10.00 

75.00 

0.2661E-02 

0.266 IE-02 

10.00 

100.00 

0.2008E-02 

0.2008E-02 

0.10 

0.10 

0.2428E+00 

0.2428E+00 

0.10 

0.50 

0.2420E+00 

0.2420E+00 

0.10 

1.00 

0.2395E+00 

0.2395E+00 

0.10 

5.00 

0.1915E+00 

0.1915E+00 

0.10 

10.00 

0.1320E+00 

0.1320E+00 

0.10 

20.00 

0.7231E-01 

0.7231E-01 

0.10 

50.00 

0.2597E-01 

0.2597E-01 

0.10 

75.00 

0.1540E-01 

0.1540E-01 

0.10 

100.00 

0.1035E-01 

0.1035E-01 

1.00 

0.10 

0.2425E+00 

0.2425E+00 

1.00 

0.50 

0.2347E+00 

0.2347E+00 

1.00 

1.00 

0.2147E+00 

0.2147E+00 

1.00 

5.00 

0.745 9E-01 

0.7459E-01 

1.00 

10.00 

0.3195E-01 

0.3195E-01 

1.00 

20.00 

0.1307E-01 

0.1307E-01 

1.00 

50.00 

0.4140E-02 

0.4140E-02 

1.00 

75.00 

0.2542E-02 

0.2542E-02 

1.00 

100.00 

0.1813E-02 

0.1813E-02 

5.00 

0.10 

0.2411E+00 

0.2411E+00 

5.00 

0.50 

0.209 1E+00 

0.2091E+00 

5.00 

1.00 

0.1553E+00 

0. 1553E+00 

5.00 

5.00 

0.3194E-01 

0.3194E-01 

5.00 

10.00 

0.1475E-01 

0.1475E-01 

5.00 

20.00 

0.7026E-02 

0.7026E-02 

5.00 

50.00 

0.2743E-02 

0.2743E-02 

5.00 

75.00 

0.1825E-02 

0.1825E-02 

5.00 

100.00 

0.1369E-02 

0.1369E-02 

10.00 

0.10 

0.2395E+00 

0.2395E+00 

10.00 

0.50 

0.1880E+00 

0.1880E+00 

10.00 

1.00 

0.1255E+00 

0.1255E+00 

10.00 

5.00 

0.260 7E-01 

0.2607E-01 

10.00 

10.00 

0.1288E-01 

0.1288E-01 

10.00 

20.00 

0.6470E-02 

0.6470E-02 

10.00 

50.00 

0.2640E-02 

0.2640E-02 
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2000.00 10.00 75.00 0.1778E-02 0.1778E-02 
2000.00 10.00 100.00 0.1342E-02 0.1342E-02 
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